

OK 

OK 

.NLIST 



7® 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 


< CONSTANTS AND 10 PORT DEFINITIONS ) 


c 

SPECIAL VGS VERBS 

) .. • 




c 

VGS Terse verb 

SWAN ) 




c 

VGS 

random * 

ranger 

) 


< 

VGS 

random * 

RND, RANGER, RANGERND > 

< 

UPDATE COLOR MAP - 

- QUICKLY 

) 



c 

VGS 


FLOOD . 

, VERTICAL 

, hori: 

c 

VGS I NTH IGHRES 

, FILL . 

, SCRERASE 

) 

c 

VGS write routines 

pair-tern representation 

) 

< 

VGS 

pair-tern 

board and magic 

equates 

( 

RELABS ) F= relabs 

SUBR ffrelabs < ASSEMBLE 


( 

VGS 

RELABS 

) 



( 

VGS 

WRTSET 

t write ) 


c 

VGS 

wr i -te 

con * -t. 

) 


c 

VGS 

wr i -te 

con * i: . 

) 


c 

VGS 

writep 

) 



( 

VGS 

WRITEP 

) 



c 

VGS 

WRITE 

) 



( 

FRAME, UNFRAME MACROS ) 




< 

SPECIAL RELAES FOR 

BOX ) 




c 

PATTERN BOARD BOX 

COMMAND ) 




c 

X Y XS YS MODE BOX 

) HEX 




c 

BOX ) E A MOV, 4 CPI, ..XSL4 

JRC* 

C JUS1F 

IF LESS 

c 

BOX ) B DAD, L BX. 

X Y STX, H 

EX.X 1+ Y STX, ( 

UPDATE 

c 

BOX ) LABEL ..PLOP 

PIXVAL LDA, M XRA, C AHA, 

t PLOP 1 

c 

BOX ) 





( 

16 BIT INTEGER DIVIDE ROUTINE: M N UN/ Q R ) 

DECIMAL 


THAN 4 
) 

LOOP ) 


C03F , 
, t Q 


) 


SNAP COMMAND ) 

8 X 10 CHARACTER SET - ROTATED ) 

MORE CHARS ) C03F , E03F , 700C , 700C , E03F , 

CHARS ) E01F , F03F , 3020 , 3028 , F01F , E02F 
NEW CHARACTER DRAW ROUTINE ) 

NORMAL BCD ADDITION ) 

VGS CPOST , SPOST ) 

DISPLAY 6 DIGIT BCD NUMBER— X Y OPT NUMADDR DISPBCD6 
n-processor MUSPCU, -this is starting load block ) HEX 
MUSIC EQUATES FOR VECTOR OFFSETS ) HEX 
MUSIC VARIABLES & IY EQUATES FOR OFFSETS ) HEX 
STEREO EFFECTS RAM AND VOLUME CRES ■-DECREE. RAM ) HEX 
MUSIC VARIABLES FOR COMPUTER MUSIC GENERATOR AND SYNCER ) 


( A > 




HEX 


MUSIC 

MUSIC 

MUSIC 


PROCESSOR 

PROCESSOR 

PROCESSOR 


COMANDS ) HEX ( da-ta,PORT ) 
COMANDS coni: . ) HEX 
COMANDS con-t . , STEREO STUFF 


and ABCRND ) HEX 


113 

it 

NOTE CONSTANTS 

) HEX 


114 

! t 

SIN BTAELE FOR 

LEFT- 

RIGHT PAN VOLTAGES ) DECIMAL 

115 

it 

HELPING SUBR's 

for MUSCPU *** NOTICE ) HEX 

116 

1C 

HELPING SUBR's 

coni: . 

) HEX 

117 

1 c 

MUSIC PROCESSOR- emusi c ) 

118 

jC 

OPCODE SUBR's, 

0-4 ) 


119 

! c 

OPCODE SUBR's, 

5-6, 

HL= MUSPC ) 

120 

it 

■'OPCODE SUBR's* 

8-0B * 

lOH ) 

121 

it 

OPCODES 0C-0F 

) 


122 

it 

OPCODES 11-1S 

I/O PORT OUTPUTS and PAN COUNTING* 1 AH ) HEX 

123 

1 c 

STEREO OPCODE 

1 A * TH 

UMFER IB* MUSIC GENERATOR @7H > HEX 

124 

!C 

OPCODE ADDRESS 

TABLE 

and FORWARDS ) HEX 

125 

it.- 

C 0 M P M U S J. C p r? — 

d :i sp B » 

15M0D, NOTABLE and THUMPLOCAT ION. ) HEX 

126 

8 f 

-3 i R13 0 w w * 

L PM J 7G 

0UNT7NG ) 

127 

U ' 

slUSCF HE si 


WMS i Ei'CEOaKft J- HiL-rt 

128 

it 

M $ N U S C P U SS li 


^*STEREOS^ ) HEX 

ms 

it 

- MUSCPU 


NOTE! I MER ,-MOSYNC ) 

130 

it 

MUSCPU con-t. 


MORAMBLE, LOWMOVER, HIGHMOVER ) 

131 

it 

MUSCPU cent. , 


MORAMBLE con-t. , 3TEPM0VER ) 

132 

i c 

MUSCPU 


VOLUME MOVING ) 

133 

it 

MUSCPU 


STEPMOVER, COMPDURMOVER ) 

134 

it 

MUSPCU cent., 


TEMOVER, NOMOVER ) 








t 

( 

( 

( 

( 

( 

( 

< 

( 

( 

( 

( 

( 

( 

( 

( 

!< 


135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 
18G 

187 

188 

189 

190 

j] Cy *| [| ( 

jp, #5 ;; f" 


COMPUTER MUSIC 
RANDOM NOTES > 
PROCESS "the score/ ) 
MU5CPUS PUT TOGETHER 
NEED AN IY LOAD ) HEX 


) HEX 


) HEX 


) 




** MUSIC INTERRUPTER ** 

MUSCPU cairt 
MUSCPU con-t . , 

MUSIC PROCESSOR- 
MUSIC PROCESSOR- ALL xmusics 
MUSCPU SUBROUTINE CALLS ) 

MUSIC PROCESSOR- EMUSIC, BMUSIC, 

MUSIC PROCESSOR- E2MUSIC, B2MUSIC, ... ) 

JAYS VIDEO GAME GOODIES > : CL SCRERASE j 
QUEUE - VECTOR MANIPULATION ROUTINES ) 

VECTOR FIELD EQUATES CONTINUED ) 

STATUS BIT EQUATES ) 

VGS VWRITE ) 

VGS VERASE ) 

GLOBAL GAME RAM AREA START ) 

STORAGE ALLOCATOR GOODIES ) 

ADD NODE TO QUEUE ROUTINE ) 

DELETE FROM QUEUE ) 

ADVANCE TO NEXT NODE ON QUEUE ) 

INCREMENT TIME BASES - C = TIME 
NEW, IMPROVED, HOTROD INTERRUPT 
RESUME BACKGROUND - END INTERRUPT ) 

TRY TO RUN SOMETHING IN FOREGROUND ) 

BACKGROUND END INTERRUPT ) 

INTERRUPT START ROUTINE ) HEX 

ROUTINE TO DELETE VECTOR IF STATUS SO INDICATES 
MACROS TO GENERATE ANIMATION OPCODES ) DECIMAL 
MORE ANIMATION MACRO STUFF ) 

ANIMATION INTERPRETER ROUTINES ) 

MORE ANIMATION INTERPRETER ROUTINES ) 

YET MORE ANIMATION INTERPRETER ROUTINES 
THE ABSOLUTELY LAST SCREEN OF ANIMATION 
JUMP TABLE FOR INTERPRETER ROUTINES ) 

ANIMATION UPDATOR ROUTINE ) 

DECREMENT ANIMATION TIMERS, COMPUTE VECTORING TIME ) 

TIME EASED VECTOR UPDATE - IX=VECTOR ADDR, IY=QUEUE ENTRY ) 
INTERRUPT VERBS ) 

TO UPDATE PATTERN USING XOR 5 

VECTOR USING SECOND DERIVITIVE ) 

UPDATE PATTERN USING XOR AND 2ND DERV VECTOR ) 
FROM JOYSTICK ) HEX 11 C= JOYSTICK 
UPDATE PATTERN FROM JOYSTICK ) 

FOR 1 COORDINATE ) 

F= INIZL 


BASE, IY = Q HEAD 
SYSTEM ) DECIMAL 


) 


) 

INTERPRETER STUFF > 


INITIALIZE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
UPDATE VECTOR 
SUBROUTINE TO 
COMPUTE DELTA 


TO 

TO 


CLEAR VECTOR ) 

SUBROUTINE TO PUT VECTOR ON PROCESS Q ) 

XVMOVE COMMAND - MOVE AN EXISTING VECTOR ) 

XSTART COMMAND - START AN EXISTING VECTOR ) 

START A VECTOR WITH JUST INITIAL X AND Y ) DECIMAL 
CHECK FOR INTERCEPT WITH VECTOR ) 

CHECK GROUP OF VECTORS FOR INTERCEPT ) 

NUMBER PATTERNS ,5X7 ORDERED 0-9 ) 

ROUTINE TO DISPLAY A BCD' NUMBER 3 DIGITS 
INTERRUPT WRITE NUMBER ROUTINE ) 

EASE STATION ) 

SMALL BASE 3 DECIMAL DATA SMALBASE 4 B, 11 


LONG FROM VECTOR ) 


O? "OT> 


^ /%. C 3 t? 


HirsU b rhE—K 


*!AL BA“ 




S' GOnF 
TA SOR* 


e 


IS B? QUAD 


5 H! 3 tL 


■ Kr 


134 

I ( 

CONT I HUA b I ON OF F 

ilEXP 

.tas 

!C 

' FBEXP3 ) 


196 

i( 

CONTINUED FBEXF3 

) 

197 

! (■ 

FBEXP4 ) 


198 

!< 

FEEXP4 CONTINUED 

) 

199 

K 

FI REBASE EXPLOSION 5 

200 

K 

FEEXP5 CONTINUED 

> 


? 3 a U b Si o M b i 

PH AS OR 


L-KETi 

AND 




MULPAT ) 





201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 


( 

c; 

C 
( 
( 
( 
C 
( 
( 
( 
C 

!< 
< 
< 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
C 
( 
( 
( 
( 
( 
< 
c 
< 
( 
( 
( 

239 I C 

240 ] i 

241 ! ( 
P S. *P '/ 
243 i! i 


24o i t 

247 ! C 

248 ! C 


FIRE BASE EXPLOSION 6 ) 

FIRE BASE EXPLOSION 6 CONTINUED ) 

ALIEN EXPLOSION PATTERN ) 

MORE ALIEN EXPLOSIONS ) 

EXPLOSION PATTERNS ) DECIMAL 
INVADERS- PLAYER SHOOTING SOUND, ID ) HEX 
INVADERS- PLAYER EXPLOSION, 1G — AND P2IP PZ ) HEX 
SPACE MISSIONS ZPIP SOUND - ZP ) HEX 
DRAW FIREBASES ON SCREEN ) 

GAME VARIABLES AND CONSTANTS ) 

INITIALIZE GAME SCREEN ) HEX 
RACK UPDATOR ) 

SUBROUTINES TO CALCULATE DISPLACEMENTS FOR 
WAIT AND ANIMATION TRACKING TABLE ROUTINES 
RECOMPUTE LIMITS ) HEX 

SUBR TO STEP MASTER COORDS ONE TICK AND LIMIT 
WE FOUND AN INVADER - WRITE HIM ) 

REWRITE A RACK MEMBER USING NORMAL PATTERNS ) 
REENTER RACK ) HEX 

INTERRUPT ROUTINE TO REENTER A GALAX IAN ) DECIMAL 
CHECK FOR INTERCEPT WITH RACK MEMBER ) 


RACK MEMBER ) HEX 

) HEX 


CHECK ) HEX 


THE FI REBASE 
, 100 , 300 j 


ING ROUTINES ) 


ANIMATION LIST AND ROUTINE TO EXPLODE 
SCORIN ) HEX TABLE ASTBL 60 , 6© , 80 
MORE SCORING GOODIES ) 

BACKGROUND PHASOR INTERCEPT PROCES 
ROUTINE TO CALL FROM SCAN LOOP ) 

ANIMATION SUBR TO INITIALIZE THE FIRE BASE ) 
CHECK FOR PLAYER HIT ) 

COMMON INITIALIZATION GOODIES ) 

SPECIAL ROUTINE TO MOVE PHASOR BLAST ) 

START OR RESTART THE PHASOR MOVING ) 

CHECK FIRE SWITCH ) 

AWAIT THE ARRIVAL OF 
NEW COLOR ROUTINES ) 

FADE UP/DOWN ROUTINES ) 

FORCE FIELD DRAWER ) DECIMAL 
£jtr p t F! D GOODIES ) 

I ME GENERATOR ) 

R A'D I AL EFFECT V AE 1 ABLES ) 


200 


THE VERTICAL INTERVAL > 


MOPE F A * 

RADIAL L 




7Nj A LI N r 


-INE "■ 

A ^ ' 1 ' C- ' 

i.' tWV J %»»• -W- . 


" » ' ) ■ 
r BELT AS ; 

GTADRANT, AND BIAS TO . EFFECT CENTER ) 

:p" r T: 7H ANY OF THE ATTACKERS ) 







m t/j hj ^ © oi co 


————-—Block 70-——— 

( CONSTANTS AND 10 PORT DEFINITIONS J 
{ : C= > CONSTANT { i } { : V= } VARIABLE { } } 

HEX 0 C= CC? < 0 TO CROSS COMPILE, 1 FOR NORMAL > 

CC? IFTRUE 0F00O C= RAMBASE ©FFFF C= LASTRAMADDR 
OTHERWISE 0D0O0 C= RAMBASE 0DFFF C= LASTRAMADDR IFEND 


5 

1< 

: NC= } .1+ ' DUP 

6 

K 

: T = > TABLE { 

7 

!{ 

: BT= } BTABLE 

a 

!( 

: BV= } BVARIAE 

9 

! 0 

C= COL0R 1 C= 

10 

! 4 

C= COL0L 5 C= 

i i 

!0B 

C= COLBX S C= 

12 

i 10 

C= TONMO 11 C 

13 

114 

C= VIERA IS C 

14 

i 0D 

C= INFER 0E C 

15 

|0C 

C= MAGIC 19 C 


+— 

-B1ock 

0 

l< 

SPECIAL VGS VER 


C= { i ) { : SC= } DUP C= { ; 

! } { :■A= > ARRAY { } > 

{ j } { : BA= } EARRAY { ; 

LE { ; } { : F= } FORWARD { ; 

C0L1R 2 C= C0L2R 3 C= C0L3R 
C0L1L 6 C= C0L2L 7 
HORCB 0A C= VERBL 
= TONEA 12 C= TONES 
= VOLAB 15 C= VOLC 
= INMOD 0F C= INLIN 
= XPAND 8 C= INTST 


C- C0L3L 

13 C= TONEC 
17 C= VOLN 


18 C 

8 C= CONCM 0F C 
VERAF —> 


OE C= 


’i 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


) 


CODE DI DI, NEXT ( disable interrupts 
CODE El El, NEXT ( e-nable interrupts ) 
CODE XDI DI, A XRA , INMOD OUT, NEXT 
: MS 0 DO 4 0 DO LOOP LOOP ; 

CC? IFTRUE 

: ROMIT DP f c-ther @ BP ! l : TIMOR DP 
IFEND 
— > 




other ! DP ! 


-I-Block 72- 

0i( VGS Terse verb SWAN > 

1!CODE SWAN ( swap nibbles in low byte ) 

2! C in— # To be swapped ) 

3| C out- swapped result: ) 

4! H POP, L A MOV, RLC, RLC, RLC, RLC, A L MOV, H PUSH, 
5J — > 

SI 

71 ' 


9 

0 


= SNDBX 

= HGRAF 


NEXT 










-B1 ock 


73- 


0 

1 

2 

3 

4 

5 
G 

7 

8 
3 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 


< VGS random/ ranger ) 

2 A = RND# < mou musi seed RND# !!!!!!!!! ) 

SUBR random ( 32 b i -t random # generator ) 

( out- random 1 ^ selected^# in DEHL ) 

B PUSH, 0 RN&# LECDr~ 1321 H LX I / B DAD, H PUSH/ 


5! 

2776 H LX I ,» 

B 

DADC, 

1 

RND# 

LDED, D DAD, 

XTHL, 

e: 

B DAB, XTHL, 

D 

DADC, 


XTHL/ 

B DAD/ XTHL/ 

D DADC, XTHL, 

7 | 

E D MOV, B E 

MOV, C 

B 

MOV, 

© C MVI, E DAD, 0 RND# SHLD, 

&! 

XTHL, D DADC 

/ 

1 RND# 


SHLD / 

D POP, B POP 

, RET, 

9! 

SUBR ranger ( 

pass # 

in HL / 

range in DE/ 

. ) E PUSH/ EXX/ ■ 

10 I 

0 H LX I, H D 

MOV, L 

E 

MOV/ 

EXX, D PUSH, 

E POP/ XCHG/ 

11 | 

0 H LX I , BEGIN 

/ 3 SRLR/ C 

RARR, CY, IF, 

D DAD, EXX, D DADC, 

12 | 

EXX, THEN, E 

A 

MOV, 

C 

ORA, 

< >, IF, E SLAR, D RALR, 4EXX, E RALR, 

13 1 

D RALR, EXX, 

{ 

SWAP 

> 

JMP / 

THEN, EXX, B 

POP, RET, 

14! 

-> 







15! 

+ 



74- 

. 


. 



C VGS 


random/ RND/ RANGER/ RANGERND ) 

SUBR rnd t pass range in.DE/ returns # in HL ) 

D PUSH/ random CALL/ D POP/ ranger CALL/ RET/ 

CODE RANDOM ( out= # on stack ) random CALL/ H PUSH/ NEXT 
CODE RANGER ( pass range/ # on stack ) 

( result is # Times range / FFPF/ ie, 30H 8000H ——— is 1 8H ) 
D POP/ H POP/ ranger CALL/ H PUSH/ NEXT 
CODE RND ( pass range on stack ) 
random CALL/ 0 POP/ ranger CALL/ H PUSH/ NEXT 
— > 


+---Block 75- 

! C UPDATE COLOR MAP ~~ QUICKLY 
i rnnr r ns ns? ' . w pop . ' f 


SCODE COLOR 
BEGIN/ M A 
EXX/ NEXT 
— > 


» /% / 
MOV j 


H POP/ 800 B LX I/ 

A OUTP/ H I MX/ C I NR/ LOOP/ 


| 0' 
1 i 
12 

13 

14 
1 5 










f -- B1 ock 76 -- - 

© K VGS FLOOD , VERTICAL , HORIZONTAL > 


1 [CODE FLOOD ( se-t all color por-ts -to -the same value ) 

2 i C in- fosste color value ) 

3! ( out- screen color ports set to same value ) 

4iEXX f H POP , L A MOV, 80© B LX I, BEGIN, A OUTP, C I NR, LOOP, 
5!EXX, NEXT 

6|: VERTICAL ( intis!sse vertical blank port ) 

71 ( in- # of 1ine ) 

8 1 ( out- vertical blank port: set ) ©A OUTP l 

9',: HORIZONTAL ( sets horizontal color boundr^ and outside 
1© 1 pixel value ) 

111 C in- x value Tor boundr^ , outside screen pixel value 
121 bits 6 and 7 determine value ) 

13 1 ( out- horizontal color boundr\j port set ) 

141 DUP SWAB OR 9 OUTP ; 


15 1 — > 

t-Block 77- 

©1C VGS I NTH IGHRES > FILL , SCRERASE ) 


11: I NTH IGHRES C intialize screen Tor high resolution mode ) 

21 1 8 OUTP C con,com port ) C© VERTICAL © HORIZONTAL I 
31: FILL C Till screen whith constant data ) 

41 C in— constant , starting address , # of b^tes to Till ) 

5 1 C out- does sequential fill w.hit,h constant specified ) 

61 ROT ROT 2DUF ! SWAP DROP DUP It ROT 1- BNOVE ? 

71: SCRERASE C erase entire screen except last Ik) 

81 © 40©0 3C0© FILL j 

9|DEC IMAL —> 

I©! 

I 1 1 
12 1 
13 1 
141 

15 1 . 

t---Block 78—- 

© 1 ( VGS write routines pattern representation ) 

11 — > PATTERN REPRESENTATION 

2 1 Pattern header requi r merits are determined b v the .'write 
31 routine used. The following diagram shows the hierarchy 
41 used : 

5 \\' _ VWRITEE , WRITER X displacement^ 

61 ■ Y displacement 

7 1 ' WRITE 0 X qtc 











B lock 


79 


( VGS pattern board and magic equates ) 

HEX 

( pattern board ports ) 

78 C= PBLINADEL 79 C= PBLINADRH 7A C= PBSTAT 7B C= PBAREADRL 
7B C= PBXMQD ’7C C= PEAREADRH 7D C= FEXWIDE 7E C= PBYHIGH 
C pattern board status port bitrs ) 

0 C= PBDIR 1 C= PBEXP 2 C = PBCONS 3 C= PBFLUSH 
4 C= PEFLIP 5 C= PEFLOP 
( magic registrar bitrs ) 

2 C= MRROT 3 C= MREXP 4 C= MROR S C= MRXOR 
6 C= MRFLOP 7 C= MRFLIP 
— > 


t--Block 80- 

|( RELABS ) F= relabs SUBR ffrelabs <ASSEMBLE 
! 7 C BIT/ 0< >/ IF/ 1 Y A LDX, H ADD/ A DCR, A H MOV/ 

I THEN, 6 C BIT, 0<>, IF, 0 Y A LDX, D ADD, A DCR, 

!A D MOV, THEN, £ FALL INTO ... ) 

i LABEL relabs ( relative X Y -to magic address conversion ) 
1 C in— EC=exp/mag BE = x !-’L = v ) 

! ( out- BC=exp/mag+shift HL=scradr ) 

i HA MOV, © H MV I, A L MOV, 

! H DAD, H DAD, H DAD, 

I H DAD, D PUSH, L E MOV, H D MOV, H DAD, H DAD, t *64 ) 

1 D DAD, < *80 > XCHG, H POP, C x > 


IF, H SCX, THEN, THEN, 
E ORA, A C MOV, RET, 


L A MOV, £ SAVE BIT CNT ) H L MOV, ® H MVI, D DAD, ( x+v ) 
RLC, RLC, HEX 3 AMI, 

MRFLOP C BIT, @< >, IF, MEG, ©=, IF, H SCX, TH 
3 AN I, A E MOV, C A MOV, FC AN!, E ORA, ACM 

ASSEMBLE> —> 

-Block 81-- 

( VGS RELABS ) 

CODE RELABS C relative -to absolute conversion ) 

€ in.- exp/mag , X , Y ) 

< out: — exp/mag+shivt , scradr ) 

EXX, ( save BC 5 

H POP, £ Y ? D POP, £ X ) B POP, £ exp/mag ) 
pe 10.!bs CALL ? IB PUSH « ( ©xpp 

U pnQLi. / ^ ™ rr yv _ wryx 



14 J 









E1 ock 


82 


HI————-— 

01C VGS k'RTSET , write ) 

1 ! 1 BV= WRTSYS ( unite system -flag ) 

2!: WRTSET WRTSYS B ' ; ( write system b \jte iirtial ise ) 

3 ! C €K > for pattern board 0= for software 

4 1 

51 SUER write ( write pattern on screen ) 

61 < in- BC = exp/mag4*shift D E = \j / x size HL = scradr IY=patadr ) 

71 C WRTSYS 0< > for pattern board 0= for software wr1 

8! C out- C=mag+shift j pattern on screen ) 

Q I__ v 


7| ( WRTSYS 

8! ( out- C=mag+ 

3 ! — > 

10 i 

11 i 

12 ! 

13 ! 

14 1 
15! 

H-—B1 ock 

0 ! ( VGS 


sare wr: 


3! 

MRFLIP 

C 

BIT, 

©< 

>, IF, 

PBFLIP 

A 

SET, 

THEN 

4 ! 

MRFLOP 

C 

BIT, 

0< 

y j IF/ 

PBFLOP 

A 

RES, 

THEN 

5 ! 

MREXP 

C 

BIT, 

0< 

> / IF/ 

PBEXP 

A 

SET, 

THEN 

6! 

A B MOV 

1 

PBSTAT 

OUT / ( 

B=statu 

s 

C=mag 

1 c ) 


i+e can't 


Y PUSHX. 
H POP, 


L A MOV, 

H A MOV, 

L A MOV, 
H A MOV, 


PELINADRL OUT, 
PBLINADRH OUT, 

PEAREADRL OUT, 
PEAREADRH OUT, 


15 ! 

+-— 

0 ! ( VGS 


-E1ock 


E H MOV, C X size ) 
MREXP C BIT, 0< >, I 
H DCR, < H=X size z 
MRFLIP C BIT, ©< >, 

MRFLOP C B I T •> 0< > 


wr i "te con ' + 


IF, H RLCR, < *2 > THEN, 

zero relative ) 

IF, 

>, IF, DECIMAL -80 .A MV I, H ADD, 
ELSE, DECIMAL -80 A" MV!,. H SUB, 


H SUB, THEN ■ 


) 


) 
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( VGS writep ) 

SUER writep < does write with pattern size header on pattern ) 
( if»- BC=exp/wsaq+sh i ft DE-^/x size HL-scradr I Y=patadr ); ' . 

C 'WRTSYS ©< > ■for pattern board. 0 = for .software write ) 

( out— C^^aqitsb i f t J pattern on screen ) 

0 Y E LBX, C X size ) Y INXX, 

0 Y D LBX , ( Y size ) Y INXX, write JMF, 

— > 


-Block 86- 

C VGS WRITEP ) 

CODE WRITEP ( write with pattern size header on pattern ) 

( in- x / m / patadr / ex/rnag ) 

( WRTSYS 0< > for pattern board ©= for software write ) 

( out— pattern on screen ) 

Y PUSHX, H POP, EXX, E POP, Y POPX, H POP, D POP, 
re labs CALL, 

writep CALL, EXX, M PUSH, Y POPX, NEXT 
CODE FFWRITEP Y PUSHX, H POP, EXX, E POP, Y POPX, H POP, D POP, 
ffre labs CALL, writep CALL, EXX, H PUSH, Y POPX, NEXT 

— > 


^-—Block 87-- 

IC VGS WRITE ) 

jCODE WRITE ( write with X Y sizes } pattern with no header ) 
i C in— x , vs , patadr , \*/x size ex/rnSg ) 

1 < WRTSYS 0< > for pattern board 0= for software write ) 

J (out— pattern on screen) 

! Y PUSHX, H POP , EXX, B POP, C exXma« ) H POP, C sizes ) 

| Y POPX, t patadr ) D POP, t Y ) XTHL, C H<-X S<-sizes ) 

J . XCHG, C X<-> v ) rrlabs CALL, D POP, < sizes ) 










+■ -Block 85——■—* 

0K FRAME, UNFRAME MACROS ) 

1|2 C= FR.PI 4 C= FR.P2 6 C= FR.P3 

2! { : FRAME > { C } ASM { ] } Y PUSHX, 0 Y LXIX, SP BABY, { i } 
3i { : UNFRAME > { l } ASM { 1 > Y PQPX, { } } 

4| —> 

5! 

6i 

7 i 

8 : 

9 i 

10 1 
11! 

12! 

13 i 

14 1 
15! 

H—-—Block 89- 

0! ( SPECIAL RELABS FOR BOX ) 

liSUBR R2A (RELATIVE TO ABSOLUTE CONVERSION FOR BOX AND LINE ) 
2iE A MOV, 3 AN I, PSH PUSH, B PUSH, D SRLR, E A MOV, RAR, 

3!A ANA, RAR, C L MOV, 0 H MV I, H DAD, H DAD, H DAD, 

4!H DAD, L E MOV, H B MOV, H DAD, H DAD, D DAD, 

5!A E MOV, 0 B MVI, D DAD, D POP, PSW POP, RET, 

6 ! — > 

7 ! 

8 ! 

9! 

10 i 
11! 

12! 

13 i 

14 ! 

15 ! 

H-Block 9@- 

0 j ( PATTERN BOARD BOX COMMAND ) 

1K X Y XS YS MODE BOX ) 

2i ( PARAMETER ADDRESS EQUATES ) 

3 ! DECIMAL 

4 j 2 C= BX .51 4 C= BX.YS G C= BX. XS 8 C= EX.Y 10 C= BX.X 

51 ( SCRATCH AREA USED BY BOX COMMAND ) 

6!0 BVARIABLE MRMODE 0 SVAR I ABLE PIXVAL 

7! ( F = ARD -;E"'E"EX.CE DECLARATIONS ) 
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0 


——-Block 31- 

< X Y XS YS MODE BOX ) HEX 
CODE BOX <ASSEMBLE 

FRAME EXX, 

BX.fl Y A LDX , 

A C MOV, 

i 4 CP I , . .SKIP J2 , 

8 CPI, . .SKIP JNC , 

4 AM I, HRMODE STA, 

C A MOV, 3 AMI, A C MOV, 

0 B MV I, MSKTEL H LX I, 

B DAB, M A MOV, PlXVAL STA, 
BX.XS Y E LDX, BX .XS 1+ Y D 


< IS MODE = 4 ) 

( IF SO SKIP IT ) 

< SKIP IF >= 8 TOO ) 

< ISOLATE AND STUFF MODE > 
C GET A BYTE ALL THE SAME 


) 


LABEL . .BOXF E A MOV, D 
EX.X Y A LDX, 3 
. . MN^ JRNz, 

DA MOV, A ORA, 
- Block 32- 


( AND REMEMBER AS PIXVAL 
LDX, ( DE=XS ) 

ORA, ..SKIP JR2, ( QUIT IF XS=0 ) 

AN I, ( ON A BYTE BOUNDARY? ) 

C NO - JUMP ) 

( IF >256 USE PE ) — 


( BOX ) E A MOV, 4 CPI, 


..CPBE JRN2, 
..XSL4 JRC, 


JUMP IF LESS THAN 4 ) 

IF <8 DON'T USE FB ) 
CALL DRAW WITH FB ) 
PAINT A. FULL STRIPE ) 


8 CP I, ».SLOB URC, 

LABEL ..CPBE FBBOX CALL, ..XST1 JMPR, 

LABEL ..SLOB FF C MV I, . .STRC CALL, 

4 C MV I, . .XSTF JMPR, 

LABEL . . MN2 3 ANI, A E MOV, C COMPUTE MIN< X,4-M0D(XS-4 > 

4 A MV I, B SUB, D 0 BIT, . .XSBG JN2, ( JMP IP XS>256 ) 
E CMP, ..XSBG JC, E A MOV, ( OR > MOD ) 

.XSBG A C MOV, B PUSH, B C MOV, C MOD IS BIGGER ) 


LABEL 

LABEL 
LABEL 

LABEL 
LABEL 
— > 

( BOX ) 
XCHG, A 
LABEL . 
LABEL . 

LABEL . 

L a et ii 
rt r? c c— -= 


J-LAEEL 


A E MOV , A XRA, 

. FFF RRC, RRC, C© ORI, , 

. BQSF RRC , RRC, ' 3F AN I , , 

A C MOV, ■ . ..STRC CALL, B 
.XSTF* © B MV I , 


FFF B JNZ , C B MOV , C MASK ) 
DOSF DJNZ f C SHIFT MOD TIMES 

( mm PART STRIPE 


.XST 1 EX 


5 


LB? 


BX .X 


FGP, 

1 + Y H 


LDX, C HL=X 3 


-Block 83- 

B DAD r L BX „ X Y SIX, N BX.X 1-f 
XRA, E BSBC , XCHG, ..BOXF JMP, 

,XSL4 A B MOV, A XRA. 

, X S L A RRC, 


i, 

RRC, C© ORI, ..XSLA DJNZ, i 

A' C MOV, ..STRC- CALL, C AND DC 

.SKIP UNFRAME N POP, H POP, H POP, H POP, 


Y SIX, ( UPDATE ) 

( SUBTRACT SIZE 3 

€ PAINT FINAL STRIPE 3 
F 0RM FINAL MSK 3 


FINAL 


? E ) 


■ v "T* 


am I j CIRCLE .ROU 

jsy V 


.BX, C. 
( GET 


rf: 




X* > 




1 r-j v 

j ""i A , 


hRMOBE I 

! 31 p>p r *> 

XRA, A 
UPCATI 




15 
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+——-B1 ock 


94- 


0 


C BOX 


LABEL 


.PLOP PIXVAL LDA. 
A li MOV , D DAD , 
RET, 


M XRA, C ANA, ( PLOP LOOP ) 
.PLOP DJNZ, C USE XOR TRICK ) 


LABEL 


) LABEL 
M XRA, 

D POP, 

PBBOX 

D PUSH, D 
E E MOV, 

BX.Y Y C LDX, BX.X Y E LDX, BX.X 1+ Y D 
R2A CALL, WRMODE LDA, 4 ANI, C CONVERT, 

..QUTM JRZ, 20 A MV!, ( JUMP IF PLOP, EL 
..OUTM MAGIC OUT, 20 A MVI, PIXVAL D LXI, 


SLR, E RARR, D SRLR, E RARR, ( DE=DE/4 


LDX, C COORDS 

CHECK WR .TYPE 
.SE ITS XOR )■ 

< SET MR, ST 


OUTPB CALL, B DCR, 50 A MVI, B SUE, C COMPUTE XMOB ) 

PEXMOD OUT, B A MOV, PBXWIDE OUT, t THEN WIDTH ) 
BX.YS Y A LDX, A DCR, PBYHIGH OUT, ( THEN HEIGHT ) 

D POP, B L MOV, © H MVI, L INR, ( COMPUTE BY' 

H DAD, H DAD, L C MOV, H B MOV, RET, 


Hi---E 1 ock 95- 

!< BOX ) 

I LABEL OUTPB < ROUTINE TO OUTPUT STUFF TO PAT BOARD ) 

! PBSTAT OUT, E A MOV, PEL IHADRL OUT, C STAT AND LINEAR > 

! D A MOV, FELINADRH OUT, L A MOV, 

| PBAREADEL OUT, H A MOV, PEAREADRH OUT, ( AREA ) 

! LABEL NULRfcT RET, 

! ASSEMBLE> 

I DECIMAL 
! —- > 


-t-—Block 96- 

|( 16 BIT INTEGER DIVIDE ROUTINE: M N UN/ Q R ) DECIMAL 

!FORWARD .ZERO FORWARD IDV50 FORWARD IDV60 
iFORWARD 1DV10 FORWARD IDV20 FORWARD I DV30 FORWARD IDV40 
ISUBR unsdiv <ASSEMBLE L C MOV, H B MOV, DA MOV, 0 H LXI, 
!E ORA, .ZERO JR2, B A MOV, 16 B MVI, 
i LABEL IDV10- C RALR, RAL, H DftDC, D DSBC, 
iLABEL IDV20 CMC, IDV50 JRNC, 

| LABEL I DVT f ■ " V # D J NT, ID V 6 O J MPT, 
f LABEL IDW-'.-i c ^AL", PAL, H DADS, .A AN: A , P DADC, 

IIDV30 J-RC^.-'IDVEO JPZ- • 


:LABEL I DLL3 "TV 
! LABEL ..I DVS0. C P 

: i Aosi -?c- — .-t or- 

i w niwk.iu * a»w---i. w i - : 

5 SUER UHST"V B ^ 
] H POP j i v P 

! UNSDIV CALL, K 



nZjp D .DAD; A' ANA, C MAKE IT FOS 
“’LL, A $ MOV , C E MOV , 

— Ew! T? )f BT N 

T- D.S3C 9 CY.f IF, 0 3 LXI, H. FOR, 
THENRET, ’ CODE ,UN/ EXXD POP, 
D PUSH, EXX, NEXT DECIMAL —> 





M POP jr 









37 


-B1 ock 


0 

1 

2 

3 

4 

5 

6 

7 

8 
3 

10 
11 
12 

13 

14 

15 


( SNAP COMMAND ) 

HEX CODE snap EXX, 

25 A MV I, PBSTftT OUT, 

H POP, 

A MOV, FEAREADRL OUT, 
POP, 

I NX, E I NX, B SRLR, C 
PEXUIBE OUT, A I NR, A 
PBLINkDRL OUT, H A MOV 
C SUB, PEXMOD OUT, 

BCR, PBYHIGH OUT, 


POP, E 
POP, B 
I NX, B 
A MOV, 

A MOV, 

50 A MV I, 

E A MOV, A 
EXX, NEXT 
: SNAP O ROT 
DECIMAL —> 


D A MOV, 40 OR I, PEAREADRH OUT, 


RARR, B SRLR, C RARR, 

M MOV, H I NX, E M MOV, 
PEL INADRH OUT, 


( DO IT TO IT ) 


H I NX, 


EC 


RELABS SWAP DROP SWAP snap 


-B1 ock 


98- 


0 i ( 8 X 

1 i HEX 

2!DATA 

10 CHARACTER 

CHRTBL 

c 

•uJS 1 

ET - 

ROTATED 

) 






3 i 0000 

/ 

0000 

9 

©0©© 

9 

0000 

/ 

0000 

9 

0000 

9 

( 

SPACE 

4 SE01F 

9 

F03F 

9 

3030 

9 

3030 

9 

F03F 

9 

E01F 

9 

( 

© 

> 

5 ! 0000 

9 

2030 

9 

B03F 

9 

F@3F 

9 

0030 

9 

0000 

9 

( 

1 

) 

6IS03E 

r 

703F 

9 

3033 

9 

3033 

9 

F033 

9 

E031 

9 

( 

2 

) 

7 ! 6018 

j 

7038 

9 

3033 

9 

3033 

9 

F03F 

9 

E01 E 

9 

c 

3 

) 

8 ! F003 

/ 

F@03 

9 

0003 

9 

0003 

9 

F03F 

9 

F03F ; 

9 

t 

4 

) 

3iF01B 

9 

F03E 

9 

3033 

n 

3033 

9 

303F 

9 

001E 

9 

t 

5 

js 

101E01F 

j 

F03F 

9 

3©3S 

jr 

3033 

9 

303F 

9 

001 E 

9 

( 

6 

) 

11[3000 

/ 

3038 

9 

3 © 3 E 

p 

E00F 

9 

F@03 

9 

F 0 0.0 

9 

( 

7 

> 

12SE01E 

r 

F03F 

9 

3033 

6 

3033 

9 

F03F 

9 

E01E 

9 

( 

8 

) 

13!E001 
14| — > 

15 ! 

r 

F003 

9 

3 0 3 3 

J? 

3©33 

9 

F03F 

9 

E01F 

9 

( 

9 

1 



+ 


— 

- —BIock 

39 



~ 







0 

i 

i 

( MORE 

CHARS 

) C03F 


, E03F 


j 700C 


, 700C 


9 

E03F 

1 

8 

i 

F03F 

# 

F03F , 

3@33 

9 

3©33 

9 

F03F 

9 

E01E 

J 

f 

B 

) 

*3 

£-* 

i 

I 

E01F 

9 

F03F , 

3 © 3 © 

9 

3030 

9 

7033 

9 

6018 

9 

( 

C 

) 

3 

! 

1 

F03F 

9 

F03F 9 

383© 

j r 

303© 

9 

'F03F 

9 

E01F 

9 

( 

D 

) 

4 

§ 

i 

F03F 

9 

F03F , 

p^pp 

jja 

3033 

9 

3033 

9 

3@3@ 

9 

( 

E 

) 

5 

i 

i 

F03F 

9 

F@3F j 

3 © © 3 


3O03 

9 

3003 

9 

3@©@ 

J 

( 

■ F 

i 

S 

I 

E01F 

9 

F © 3 F 

FT C’ 

r 

3936 

9 

303E 

9 

2© IE 

9 

i 

G 

% 

7 

i 

R 

F@3F 

9 

p 0 p'... 


r 

rfTj jTpj “TT* 

n , 

F@3F 

n 

p 3 p 

9 ■ 

c 

F 

)' 

S 

il 

© @ © © 

9 

3.030 n 

FT rC ~~ 

r 

7" , Tj 77 

.7 

3@30 


10 0 0 © 

z 

f 



3j@01C 

9 

©03C n 

rFS C"; •v 1 ’ 

- 

9030 

g 

p p- 

p 

[C“ fy: 9 

p. 

f 

*w 


10 

0 

tl 

F03F 

9 . 

p £> *’T ; c 

f> :'c '' T ~' 

r 

7^ jpj r ;:~ 


P © p p 

$ 

T? ■'Ti 

e ^ C’ 

r- 


s<. 


1 1 

a 

F 03F 

■9 

F03F - 

■"'! r’F' - 

r 



p •c; : 

z 

993'- 

r 

f 

L, 

) 

1 2 

[ F@3F 

9 


rv 

r 

7091 • 

p. 

"0 90 9 

n 

p © p 

r 


pf 


13 

a 

D 

F © 3 F 

9 ■ 

FT -c rr 


r 

-:F‘- ;: r i c 1 

p 

rv 'C 

fi 

p p 

9 

■% 


3 


C03F , C A ) 
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100 - 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
G 

7 

8 
9 

10 
11 
12 

13 

14 

15 


( CHARS 

: ) E01F 

, F03F 

, 3020 

1 , 3028 

. F01F 

, 1 

E02F 

F03F 

, 

F03F 

, 

3003 

, 

3007 

, 

F03F 

, 

E03D 

Jf 

( 

R 

) 

E01 9 

, 

F03B 




3©33 


703F 

■, 

601E 


C 

s 

) 

3000 

/ 

3000 


'F03F 

L 

F03F 


3000 


300® 

, 

( 

T 

). 

F01F 

/ 

F03F 


0 0 3 O 


0030 

, 

F03F 

, 

F01F 

, 

( 

U 

) 

F003 

, 

F00F 

3 

^ 0 3 c, 

, 

00 3 E 

, 

F00F 

, 

F003 

, 

c 

V 

) 

F03F 

, 

©00C 

, 

S0O7 

, 

8007 

, 

0 0 0 C 

, 

F03F 

B 

( 

w 

) 

7038 

, 

F03C 


COOP 

, 

CO0F 

, 

F03C 

, 

7038 


c 

X 

) 

7000 

/ 

F © © © 


C03F 

, • 

C03F 

, 

F000 

, 

700® 

, 

( 

' Y 

) 

303C 

CC? 

, 303E 

IFTRUE 

, 3©37 , 1033 

ROM IT IFEND — 

> 

F031 


F03@ 


( 

z 

> 


< 0 ) 


-t-B1 ock 101- 

( NEW CHARACTER DRAW ROUTINE ) 

( IN HL=Y DE=X BC=EXPAND/MAGIC A= CHAR TO DISPLAY ) 
HEX 

SUBR drawchar B PUSH , H PUSH, D PUSH, 20 SUI, 0<>, IF, 
0F SUI, ©B CPI, CY^, IF, 7 SUI, THEN, THEN, 

A L NOV, 0 H MV I, H DAD, H DAD, L E NOV, H D MOV, 

H DAD, D DAD, CHRTBL D LX I, D DAD, H PUSH, Y'POPX, 

D POP, H POP, H PUSH, D PUSH, relabs CALL, 

602 D LX I, wr i ire CALL, D POP, H POP, H A MOV, 7 ADI, 

A H MOV, B POP, RET, 


0 

1 

2 

3 

4 

5 

6 

7 l 

a s 

S n 
10 ! 
1 1 | 
12 ! 

13 i 

14 ! 

15 1 


( TERSE INTERFACE 
CODE cpost EXX, B 
X PUSHX, Y PUSNX, 

D PUSH, H PUSH, B 
DECIMAL —> 

-l--Block 102-— 

( NORMAL BCD ADDITION ) 

CODE BCD+! EXX, H POP, D POP, 

ADD, DAA, A M MOV, 
MOV, D ADC, DAA, A 
MOV, O AC I, DAA, A 


- X Y COLOR/MAGIC CHAR' cpost - 
POP, C A MOV, B POP, H POP, D 
drawchar CALL, Y POPX, X POPX. 
PUSH, EXX, NEXT 


—- NEW X Y 

FOP, 


M A MOV, E 
H I NX, M A 
H I NX, M A 
EXX, NEXT 
iDECIMAL — 


M 

M 


MOV, 

MOV, 









Block 


103 


( VGS CPOST , SFOST ) 

: CPOST ( post an asci i-character on -the screen / see options ) 
( in= x , m , opt+ex/ntag , asci i-char ) 

C WRTSYS 0< > for pattern board 0= for software write ) 

< out— character on screen ) 
cpost DROP DROP DR OF j 

: SPOST C post an ascii-string on the screen J see options ) 

( in= x , m , opt+ex/wag , addr , count ) 

( i.e. 0 0 28 A" STRING" COUNT SPOST ) 

( WRTSYS 0< > for pattern board 0= for software write ) 

( cannot be used in immediat mode ) 

( out— character on screen ) 

OVER + SWAP BO I E@ cpost LOOP DROP DROP DROP Jf 


--Block 104- 

C DISPLAY S DIGIT BCD NUMBER — X Y OPT NUMADDR DISPBCD6 ) 

HEX SUBR digit OF AN I * 0=, IF, D ORA, 0< >, IF, 0F0 A MV i, THEN, 
ELSE, 0 D MV I, THEN, 3© ADI, EXX, drawchar CALL, EXX, RET, 

HEX 

F= DGTL 

CODE DISPBCD6 < ASSEMBLE H POP, M A MOV', H I NX, M ORA, 

H I NX, M ORA, A D MOV, 3 E MV I, 

EXX, B POP, H POP, D POP, X PUSHX, Y PUSHX, EXX, 

LABEL DGTL M A MOV, RRC, RRC, RRC, RRC , digit CALL, 

M A MOV, digit CALL, H DCX, E DCR, DGTL JRNZ, 

Y POPX, X POPX, NEXT ASSEMBLE > 

DECIMAL —> 



+— 


- B1ock 

1@5- 




0 

!< 

n-processor 

M U S P C U / -this is 

start i np 

load block ) HEX 


1 

! ( 

old 

TERSE mu 

sic stil 1 ( works 

and runs 

on irhis MUSCPU or 


2 

! £ 

2MUS 

CPU, mu I 

tipis processors 

reload I 

Y ,for music- vectro 

r ji > 

3 

; ( 

and 

-the var i 

able SOUNDBOX to 

the port 

1 past the NOISE 

port / 

4 

K 

i e . 

sounds are 'in !©~!7 ; set 

SOUNDBOX 

to 1 S H. ) 


5 

! 0 

EV= 

MUSICFLA 

S C turns off a! 

I process 

ops for G&MEOVER 

) 

6 

f 1 

8 C= 

p u y p -fj PP "-j. 

C= C u IP2 ■£ hi ah 

port: o f 

sound b ox f o r a r: vi 

chips 


’MUSIC uses chi; 

hN~0RT2 t 1e^t- 


14 ! 

15 ! 
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9 
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11 

12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 

a 

9 

10 
1 1 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 

a 

3 

10 
11 


-Block 106- 

( MUSIC EQUATES FOR VECTOR OFFSETS ) HEX 

{{ 0 SC= BEGMUSRAM C f irs+ b\j + e of music-vector 3 

SC = MUSPC SC— MUSPCH NC — MUSPCL C music program counter 3 

NC= STARTFC SC= S7ARTPCH NC- STARTPCL ( startover address 3 

NC = SOUNDBOX ( highest port of I/O chips sound ports 3 

NC— FANFCR7# £ bc\*tom and left port of stereo output ) 

NC — MOVALUE C currant: value ) 

NC= VIBTRACKER ( vibrato convience -tracker for games 3 } } 

{{ NC = MULTIPLE NC— PRIORITY }} ( for repeated and important 


{{ NC= RAMPFLAG ( /|/|/ vs, /\/\/ ) NC- RAMELEFLAG 

NC= HIGHLIM NC = LQWLIM NC= STEP C pertaining to MO 
RAMBLET1MER C master oscillator timer ) 
TIMEBASE ( reload rambletimer value 3 }} 

LIMCOUNTER C MO limit counter 3 


C on/off 
walk 3 


NC = 
NC= 
NC= 
— > 


-Block 107- 

C MUSIC VARIABLES & IY EQUATES FOR OFFSETS ) 
{{ NC— STOPTB ( stopvalue for timebase-mover 

NC= ' TESTER NC= TBTB NC= TBTIMER ( tbmover' 


HEX 

3 

ss f tb j-ti mer 


) >} 


{{ NC = NOSTOP < noisemover's sv*ss j timerjtb r tracker 
NC= NOSTEP NC= NOTIMER NC= NOTIMEBASE NC- NOVALUE > 
{{ NC= STOPSTEPS ( MG's stepmover etc* 3 
NC= BIGOFASTEP NC= 5TEFTIMEBASE NC = STEPTIMER }} 

{{ NC = STOFLOWLIM C Jowlim J s mover's ram/ stopvalue 
NC— LGWSTEP ( ss or stepsize 3 


3 


NC = LOW# ( # of limits to hit before moving 

NC— LOWCOUNTER C counting low# down 3 }} 

{{ NC= STOPHIGHLIM ( highmover's ram 3 
NC= HIGHSTEP NC- HIGH# NC- HIGHCOUNTER }} 

— > 


3 


—-Block 108-- 

C STEREO EFFECTS RAM•AND VOLUME 
( total pan volumes either 
( load lowest port in P ANPORT# * 

( watch'step starting direction 
{{ NC= LEFTPAN C tracker 3 
NC— PANSTEP i step size 3 
( timebass for updating 3 
JNC= PANT I MEBASE PAN”IMER 

\ C count t cr I :! r its to achieve 
l NC- PANCOUNTET 3 '• 

Hi NC = VOLV "C-VLr.M = VOLCWL’M N' 


CRES . -BECRES, 
, FFH f 64 

this is left 


. RAM 3 HEX 
STEPS BETWEEN 3 

side* It-right 3 


for left-right action ) 


13 ! ■ 

14 l 
1 5 S 










+ —-■——B lock 


109- 


0 

1 

2 

3 

4 

5 
G 

7 

8 
9 

10 
11 
12 
13 


( MUSIC VARIABLES FOR COMPUTER MUSIC GENERATOR AND SYNCER 
{{ NC= SYNCMO NC= STARTMC C special bvarbs for THUMPING ) 
{{ NC= NOTETIMER ( noire -timer ) 

NC= COMPDURATIOM C computer music noire duration ) 

COMPSTEP € strep = { 1,0,-1 } ) 


NC= 
NC= 
NC= 
NC = 


COMPTIMER ' 

ATRACKER NC 
NOTECOUNTER 
C “trackers of 

NC= MSI ( HUS 


COMPDURATION moving 


BTRACKER NC= CTRACKER 

R ( for kev changes ) }'} 

indacies iro NOTABLE and 
C-STATE-TRANSITI ON Jump 


NC= MOTRACKER 

MOTAELE ) 
around variable 


-1 


NC= ENDMUSRAM C lasir 
80 C = COMPTE C £3 an 
DUP EARRAY MUSI C-BARRAY 
BARRAY MUSIC-BARRAY-2 

US IC-BARRAY—1 
US IC-EARRAY-2 

110- 

SSOR COMANDS 

1 © B j Bj { j 

2 B, B * { s > 


b^ire of ram > 

equate iro reload timer 33 


14 

! { 

: MB1 } 0 M 

15 

i { 

: MB2 } © M 


+ —■ 


0 

! ( 

MUSIC PROCE 

1 

i { 

: MASTER > 

2 

!■{ 

: BT ONE } 1 

3 

! { 

: VIES } 14 

4 

|{ 

: MCVOLS } 

5 

I < 

range/ d isp . 

G 

: c 

range ?port 

7 

! ( 

porir ) { : 1 

8 

i { 

: DURATION 

9 

! ( 

address iro 

10 

! t 

time/tA ) { 

1 1 

! t 

ir i me f #B ) { 

12 

! t 

ir i m e j # C ) { 

13 

! C 

*A,#E,*C ) 

14 

It 

t i me j- #AU #B j 

15 

| 

- > 


+ “- 

-BIock 

0 

! f 

MUSIC PROCE: 

1 

i / 

i K 

: QUIET } 4 

2 

It 

time/step/ 1 1 

3 

I c 

ir i me / sirep $ 1 1 

4 

1 c 

computer mu: 

5 


{ i G E H \ 

6 

1 i 

i (L 

* pcpAMps r r 
a r\ r\ trd i t J— tw- 

7 

B 1 

V 4 

s stoprampl: 

S' 

11 t 

2 C0UM7L I """'j I' 

9 

5 C 

Format ' 

1© 

I i 

s MOVEST7^ 

1 i 

It 

8^ £ i F O o: ^ r* 

12 

1 c 

h o l d: o O: F . ’ — 

1 3 

il ( 

ir i r 2 fe 5; s? 3 

1 4 

i f 

E’ ' 

NO I SE iro - os 


/ 

r 

HEX 


— > 


( data,PORT ) 
ATONE } 11 B, B, { 
CTONE > 13 B , B, { 


JC? jp 


{ 




15 B, B, { i } { 
f pert ) { : RDRNDNTE 
) { : RRNDNTE } 0 E , 
RNDNTE } 0 E , B, OB 


ABVOL 
NOISE } 


} 1 E, 
cant . c 
: ft NO" 


u 7 


i 


BNOTE 
CNOIE 
Tunes 
) { 


} 0 B 7 B 

E 7 © B 7 B 7 { 

FF B, { l } 

} { : FLAY } 3 B. 

> { : LDFCC } 2 B 7 7 {. 7 

> ATONE DURATION { ; > 

} BTONE DURATION { J } 

} CTONE DURATION { j > 

} CTONE STONE ATONE { j 


} 1G ] 
17 B, 

E 7 B 7 


I 7 

B, 

t 


> 

> 

B 7 
{ 


> 


NOTES } TONES DURATION { 


HEX 


) 


SSOR COMANBS cont, 

B> { | } ( does an emusic 

owjhigh ) { : RAMBLE } 5 Br 

owihigh ) { : RAMP } S E; 

sic generator/ stepsize {1/@/ 

iWT 50 T r n -? ra T5 ip * 

l'lUO £ U J’ it 3 j? £? j* JS> n 


a. 


? i > i 

restart ramf-: 


E j B ? 
1 }. 


5"tOF 


B j> I I 

duration 


r NOVEI 
10VEN0 ” 5 


-OWL 


B j 


OF 


) HEX 
} } 


> 


— ■ ) 

) 

} 













CM m ^ ID 


0 

1 

2 

3 

4 

5 

6 
7 
S 
9 

10 
11 
12 

13 

14 

15 


-I-B 1 ock 


1 0 
.11 


—-B1 ock 112-- 

( MUSIC PROCESSOR COMANDS cont., STEREO STUFF and 
( trMi — timebasej stepsise/ lefirvolume/ — — — ) 


ABCRND ) HEX* 


HEX { ; MOVESOUNB > 18 

( also notice that stepvol 
C for limited' movement/ use 
{ s COUNTPANS } 19 

C volume moving is ind. of 
C ABvoIsjMCvcIs *tb ,ss * 11jh1 


B / Bjp B , B , { 5 } 

is pos. for 1 eft— >right ) 
the following : # of limits 

3; E, { } } 

stereo ) 


{ 

specia 1 

■{ 

- > 


: MQVEVOLS 

opcode to 

: HITMG } 


'1A B , B , B , B , B , MCVOLS ABVOLS { 
reload MC for fade out, STARTING MC 


IBB, B, { 


i 13- 


1 


FD 

C= #G0 

EE C= &G80 

El C 

= #A© 

D4 C= 4AS0 

C8 C= 

#B© 

2 


ED 

C= #Ci 

B2 C= SCSI 

AS C 

= #D1 

3F C= #DS1 

9G C" 

«aa. C7 4j 
-or L. 1 

3 


SD 

C= #F 1 

as C= #FS1 

7E C 

= #G1 

77 C= #GS1 

70 C= 

# A1 

4 


6A 

C= #AS1 

64 C= *11 

5E C 

= *C2 

59 C= ®CS2 

54 C = 

£ti 2 

5 


4F 

C= #DS2 

4A C= #E2 

46 C 

= #F2 

42 C= &FS2 

3E C= 

OG2 

6 


3B 

C= #GS2 

37 C= OA2 

34 C 

= #AS2 

31 C= #B2 

2E C= 

#C3 

7 


2C 

C= #CS3 

23 C= =S=D3 

27 C 

= #DS3 

25 C= #E3 

2^ r ^ 

OF3 

a 


20 

C= #FS3 

IF C = #G3 

iD C 

= #GS3 

IB C= #A3 

1 A C= 

0 R O ■ 

9 


18 

C- #B3 

17 C= 

15 C = 

#CS4 

14 C= #D4 

13 C= 

#DS4 

10 


12 

C= #E4 

11 C ■— r t ’.’ 

10 C= 

#FS4 

0F C— #G4 

0E C= 

*G3.4 

11 


0D 

C= #A4 

©E C™ #C5 

0A C= 

#CS5 

09 C— #DS5 

08 C- 

#F5 

12 


07 . 

C- #G5 

06 C= ®A5 

05 C = 

#C6 

©4 C= *DS6 

©3 C~ 

^ G 6 

13 


02 

C= #C7 

01 C= €?G7 

00 C = 

#G8 




14 


ETABLE HOT ABLE 23 3, 

22 B, 

20 E, 

IE B, 1C B , 

1 A B j> 

IS B 

15 


16 

B , 15 B 

, 14 3, 13 

E, 12 

E, 11 

E, 0D B , 0E 

E, — 

> 


SIN 

» a 

{ 


-Block 

STABLE FOR 
} C STORE 


114- 

LEFT-RIGHT PAN 
BYTES ON STACK 


VOLTAGES 
IN RAM AS 


) DECIMAL 
PATTERN ) 


1 >R BEG] 
BEGIN R: 
-1 CONSTANT - 
BTABLE sin — taSi 


N DUP -1 = IF DROP 1 ELSE >R -0 THEN END 

■ DUP -1 = IF DROP,1 ELSE > B, { © THEN 

■ ( MARK START OF PATTERN ) 


— > 


-— ) 


E, 


END 


1 1 
P ‘P 

3 3 

4 Hr — O Sr 

55-S3 
5UBR si 


-1 0 
-21 


) 


2F5 

“Prt- 


255 255 255 254 253 

i 37 ", £2 IT?' i 52 147 

t/) a, pi 92 AG 

/v/. r-i ^scs i o 




24" 




P f - 


0< 


■ a * 

V A r , 


A 


MV! 














+—--Block 115--— 

0 j < HELPING SUBR 9 s for MUSCPU *** NOTICE ) HEX 

1 ! C The MUSPC rides in HL for -the coarse of -the MUSCPU ) 

2iC EACH MUSCPU LOADS ITS STARTING RAM IN IT ) 

3|SUBR PCJUMP ( reload MUSPC ) 

4! M E MOV, H IHX, M D MOV, XCHG, C leave in HL ) 

.5! L MUSPC Y STX, H MUSPC 14- Y STX, ( store ) RET, 

6iSUBR portout < pass value in A, port in C ) 

7! A E MOV, 17 A MV!, C CMP, ( all ports are 10-17 ) 

6 j 0 >=, IF, C check for bad values ) 

9! 8 SUI, < bottom ) C CMP, @<, IF, C oked ) 

10,' 18 A MV I , C SUB, SOUNDBOX Y SUBX, NEG, A C MOV, E OUTP, 

11! THEN, THEN, A XRA, RET, 

12 [SUBR babs ( bvrte; absolute value ) 

13! 7 A BIT, ©< >, IF, MEG, 7 A RES, THEN,. RET, 

14!CODE BABS H POP, L A MOV, babs CALL, A L MOV, H PUSH, NEXT 

15 i -- > 

H-33 i 1 1 £ - 

0 ! C HELPING SUBR 9 s . coni: . ) HEX 

1 iSUBR LIMIT COUNT C detect Music-State-transition if completed ) 

2! LIMCOUNTER Y A LDX, A ORA, 0<>, IF, 

3! A DCR, A LIMCOUNTER Y STX, 0=, IF, C done ) 

4! A RAMBLEFLAG Y STX, C strop ramble ) 1 MST Y MVIX, 

5! THEN, THEN, RET, 

£!SUBR FANOUTS < pass location in E > 

7! PANPORT# Y C LDX, E E MOV, ( save ) sin CALL, 

8! A OUTP, 3F A MV I, C £4 steps ) B SUB, A E MOV, 

9! sin CALL, ( enter -cable from bottom > C I NR, A OUTP, 

10! RET, 

11 ! — > 

12 ! 

13! 

14 ! 

15 i 

-5-Block 117- 

0! ( MUSIC PROCESSOR- emusic ) 

1 I DATA ENDMUS PLAY 

2 ! 

■ 3j SUBR emusic C EE each EMUSIC passes vector addr in DE * ) 

4! MUSPC H LX I, D DAD, ENDMUS B LXI, C M MOV, H INX, B M MOV, 

S ! A XRA, 6 H LX 1, D DAD, < skip MUSPC,STARTPC,SOUNDBOX,PANPORT# ) 
£! ENDMUSRAM BEGMUSRAM - £ - E MV I, 

7 1 BEGIN, A M , 7 H INX, B DCR, ®=, END, 











ijji hJ ^ ©■ *9 Os 
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4 
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7 


H-B lack 118--— 

( OPCODE SUBR's, 0-4 ) 

SUBR RANDOMNOTES H PUSH, ( save PC from RND > 


H 


E MOV, D PUSH, H I NX, M E 
CALL, D POP, C di sp. 
pertout CALL, H POP, 


MOV, D PUSH, H I NX, 

) D DAD, C returns in HL ) 
3 D LXI, D DAD, ( MUSPC ) 

STX, H I NX, A XRA, 


RET i 


0 D MV I , 

M E MOV, random 
B POP, L A MOV, 

A XRA, RET, 

SUBR LOADTIMER M A MOV, A NOTETIMER Y 
A COMPDURATION Y STX, A INR, RET, 

SUBR CONTJUMP K E MOV, H I NX, M D MOV, XCHG, A XRA, 

SUBR QUIT JUMP C H DCX, 3 in A ) RET, 

SUBR QUITYET? < QUIET ) MULTIPLE Y DCRX, 

0< >, IF, 5TARTPC Y L LDX, STARTPC 1+ Y H LDX, A XRA, 

ELSE, Y PUSKX, EXX, D POP, emusic CALL, 1 OR!, THEN, RET, 
— > 


+—-Block 119-— 

( OPCODE SUSP's, 5-6, HL= MUSPC ) 

|FORWARD RAMELESTORES 

SUBR RAMBLIN'* A XRA, ( turn off ramp flag ) 
LABEL RAMELESTORES A RAMPFLAG Y STX, 


M A MOV, H 
M A MOV, H 
M A MOV, H 
M A MOV, H 
A TIMEBASE 
SUBR RAMPIN- 
— > 


I MX, A HIGHLIM Y STX, 

I NX, A LOWLIM Y STX, 

I NX, A STEP Y STX, 

I NX, A EAMELETIMER Y STX, 

Y STX, 1 A MV I, A RAMBLEFLAG Y STX, 
1 A MV I, RAMELESTORES JMP, 


A BCR, RET, 


) 

) SOUNDBOX Y 
Y STX, 


A LDX, 8 SUI, A C MOV, 


-Block 120- 

( OPCODE SUER's, 8-0B, 10H 
SUBR MASTART < MASTER, 10H 
M A MOV, H I NX, A MOVALUE 
A OUTF, A XRA, RET, 

SUBR RAMBLE-ON 1 A MV I, A RAMBLEFLAG Y STX, A XRA, RET, 
SUBR RAMBLE-OFF A XRA, A RAMBLEFLAG Y STX, RET, 

SUER LIM!TRAMPLE ( up LIMC0UN7ER > 

1 A MV: * FT-3LEFLA0 Y STX, X A MOV, 'HI I NX, 

a [_ T MCOUVT r "~ _ ,a 

H l NX, A STOFSTEPS Y STX. 


'UBR 5 
M A MOV 

A STE: 

-- > 


J? 


•VV J? 

: £OFA 

\ p A 


ii tr 


:r 


a- flOVj. H 
"K« A XRA, 


I MX ? 












0 

1 

2 

3 

4 

■ ■ =j 
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7 

a 

8 

10 
11 
12 
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14 

15 

0 
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6 
“7 

s 

9 

10 

11 

12 

13 

14 

15 

0 

1 

2 

3 

4 
'5 


O I 

3 ji 
1 ®! 
1 'i 1 


15 


--Block 121-— 

( OPCODES OC-0F ) 

SUBR LOUIHOV IN' M A MOV, H I NX, A STOPLOWLIM Y STX, 

M A MOV, H I NX, A LOWSTEP Y STX, M A MOV, HI NX, A LOW# Y STX, 
A LOWCOUNTER Y STX, A XRA, RET, 

SUBR HIGHMOVIN' M A MOV, H I NX, A STOPWIGWLIM Y STX, 
ii A MOV, H I NX, A HIGWSTEP Y STX, M A MOV, H I NX, 

A HIGH# Y STX, A HIGHCQUNTER Y STX, A XRA, RET, 

SUBR TEMOVIN' M A MOV, H I NX, A STOPTB Y STX, M A MOV, H 
A TESTER Y STX, M A MOV, H I NX, A TBTB Y STX, A TBTIMER 
A XRA, RET, 

SUER NOMOVIN' M A MOV, H I NX, A NOSTOP Y STX, M A MOV, H 
A NOSTEP Y STX, M A MOV, H I NX, A NOTIMER Y STX, 

A NOTIMEEASE Y STX, SOUNDBOX Y C LDX, C DCR, 

M A MOV, H I NX, A NOVALUE Y STX, A OUTP, A XRA, RET, 

— > • 


I NX, 

Y STX, 

I NX, 


t 


-E1ock 

OPCODES 11-16 


122- 

I/O PORT 


OUTPUTS and FAN COUNTING, 1 AH ) HEX 


SUBR OPPORT ( 11H-14H, 16-17H 

RRC, A C MOV, M A MOV, H I NX, 
SUBR MCMOVIN' ( 1SH ) 

RRC, A C MOV, M A MOV, 

SUBR NO ISEPORT C 17H ) 

RRC, A C MOV, M A MOV, H 
SUER SOUNDMOVIN' 


portout JMP, 


H I NX, A MCTRACKER Y STX, por-tou-i; JMP, 


FANOUTS 


A MOV, 
( 1 SH 

tftLL , 

A 
A 


I NX, A NOVALUE Y STX, portout JMP, 
M E MOV, H I NX, E LEFTPAN Y STX, 


POP, ( init ) 


H PUSH, 

M A MOV, H I NX, A PANSTEP Y STX, 

M A MOV, H I NX, A PAMTIMEEASE Y STX, 

A PANTIMER Y STX, FF PANCOUNTER Y MVIX, 

SUBR PANL IMITCOUNTIN' ( 18 ) 

M A MOV, H I NX, A PANCOUNTER Y STX, 

PANTIMEBASE Y A LDX, A PANTIMER Y STX. 

— > 

H-Block 123- 

( STEREO OPCODE 1A, THUMPER IB, MUSIC GENERATOR 


A XRA, RET. 


A XRA, RET, 


> HEX 


VOLMOVIN' ( 


SUBR 
M A MOV, 

M A MOV, 

M A MOV, 

M A MOV, 

1 VOLT I HER 
SUBR MOM ITT 

1 SYNC MO v ' 
ST A, I*! A Y!0 


H 1 NX j 
H I NX j 

U • ir iy v 

ii U •* " s - ; ! 

H 


l NX. 


1 AH ) 

A VOLHIGHLIM Y STX, 

A VOLOWLIM Y STX, 

A VOLSTEP Y STX, 

A VOLT I HEBASE Y STX, 


Y 

T %S\ J 


HVIX, A XRA, RET, 


DURA""’I OY Y 


ri"”S^TSC 

S I X , A 
", 

CQXP~~1 


v r> ■ 


yv; 


3 A YVI , 

£ A , R TL " , 

7 M? 

'') •'••‘1 p T | 

- ™, <y - 


'HUY-COUNTER 


Y Vr. 

? Y ■> 














ai^cdhj^Qcoco^isftyi-^tdro*-*© ui-^coro^©y509-j(ncn-^cjro 


-B1 ock 


124- 


( OPCODE ADDRESS TABLE and FORWARDS > HEX 
{ : FW } FORWARD { } } IB C= S-0F-0PC0DE5 

FW process FW endprocess FW MU SEND 
TABLE OPADDRESSES 


RANBOMNCTES , LOADTIMER , CCNTJUMP , QUIT JUMP , 

•QUITYET? f RAMBLIN' , RAMPIN' , MUSICIN'' , 

RAMBLE-CN , RAMBLE-OFF , LIMITRAMELE , STEPMOVIN' , 
LOWMOVIX' , HIGHMQVIN' , TBHOVIN' , NOMGVIN' , 

MASTART , 3 ® << OPPORT , >> 

OPPORT . MCMOVIN' , OPPORT , NOISEPORT , 

SO UN BMC V I N ’ , PANL I M I TCOUNT IN' , VOLMOVIN' , NOHITTIN' , 


+-Block 125- 

!< COMPMUSIC's +-dis P ., 1 5M0D , NOTABLE and THUMPLOCATI ON ) HEX 
JBTABLE THUMPLOCAT I ON ( where To locate sound in stereo image ) 
i 3F B, 2A B, 15 E, 00 B , 

1BTABLE NOTABLE ( 3 octave range ) 

! #G0 E, =&A® E, 3=E© E, #C1 B, #D1 B, #E1 E, #FS1 B, 

i #G1 B, #A1 B , *331 E, *C2 B, #D2 E, #E2 B, *FS2 B» 

i *G2 B, *A2 B, *B2 B , *C3 B , *D3 E, *E3 B, *FS3 B , 

! SUER +—disp. ( change A -to a -S- or — 3—biT # ) 

! 9 A BIT, 9< >, IF, < neg ) FS OR I, ELSE, 7 ANI, THEN, RET, 

1 SUER 15M0D ( base 21 decimal ) 15 CPI, &>=, IF, 7 SUI , 
i ( onlv) adjust: note down 1 octave ) THEN, A ORA, ©< , IF, 

! ( adjust: up 1 octave ) 7 ADI, THEN, RET, 

I SUBR UP—AN—OUT ( pass index in A > EXX, 

! 0 NOTABLE D LX I, 0 H MV I, A L MOV, 

S D DAD, C I NR, M A MOV, A OUTF, ( outp note > EXX, RET, 

ICC? IFTRUE TIMOR I FEND —> 

-i-Block 12 S- 

!( STEREO STUFF, LIMITCOUNTING ) 

! ( PANLI HITS- achieving limits of volumes per channel ) 
j SUER PANLIMIT C AS;E“ LEFTVOL, D = Tb, H=counterj L=stepvol ) 
i H I NR, 0< >, IF, C yasn't FF ) H BCR, H BCR, ( counted ) 
i ©=, IF, ( counted down ) ' 

j 1 MST Y MV IX, C detect state transition > 0 2" MV I, 

! THEN, ELSE, H DCR, < back To FF > 

! THEN, A XRA, L PUT, 1 change step sign ) A L 


13 i 

14 S 










+—--—Block 127- 

)! C XX MUSCFU XX 3K3KSTERE05K3K ) HEX 

. iSUBR MUSCPU < runs in interrupt > 

l\ A XRA, MS7 Y CMPX; ©< >, IF, RET, THEN, ( no background ) 

3! NOTETIMER Y CMPX, 0< >, IF, NOTETIMER Y DCRX, ©~, IF, 

H C0MPDURA7I ON Y'CMPX, ©<>, IF, 2 A MVI, NOTECOUNTER Y DCRX, 
31 ELSE, A INR, THEN, 

; i A MST Y STX, THEN, THEN, < X PANNER X ) 

7 \ — > 


-Block 12£ 

XX MUSCPU XX 
LEFTPAN Y E LDX, C 
PANTIMER Y CMPX, ( 
0< >, IF, < -timer on 
PANTIMEBASE Y D LDX 
A8cE= 1 ef tvo 1 , D~t I m 
E A MOV, L ADD, C n 
©< , IF, C 1ow Iimit 
^ screen 22©, PANL 
ELSE, 3F CP I, i 

THEN, THEN, L PANS! 
E LEFTPAN Y STX, C 
THEN, THEN, FANOUTS 


3K3&STEREO&3K ) HEX 
setups for PANNER ) 
all vectoring routines follow ) 

) PANTIMER Y DCRX, ©=, IF, ( expired ) 
, FANCOUNTER Y H LDX, PANSTEP Y L LDX, 
er-re1oad, value H=counter, L=stepvol ) 
swpan ) A E MOV, A ORA, 

) © E MVI, PANLIMIT CALL, 

IMIT saps D, so a zero timer comes in ) 
F, ( 64 ) 3F E MVI, PANLIMIT CALL, 

EP Y STX, D PANTIMER Y STX, 

FANOUTS creams E ) H PANCOUNTER Y STX, 
CALL, ( pass location in E ) 


-I-B I ock 1 23- 

©1C MUSCPU NOTETIMER,MGSYNC ) 

11A XRA, RAMELEFLAG Y CMPX, C X RAMBLER X > 

2! ©<>, IF, RAMBLE!IMER Y DCRX, 0=, IF, 

31 STEP Y L LDX, ( setup ) SOUNDBOX Y A LDX, S SUI, AC MOV, 

4! MOVALUE Y A LDX,' L ADD, C step ) A MOVALUE Y STX, < upit ) 

5 I A OUTP , A D MOV » A XRA, SYNC MO Y CMPX * ©< >, IF, EXX, 

6 1C X special opcode f or thumpimg sound X ) STARTMC Y ■ A LDX, 

7 1 A MCTRACKER Y- STX, T IMEBASE Y A LDX, C keep durat i ons close 


Bi ©F© AN I, : 
3 I THUMPCOUNT 
1 © il © B ['■] V I * 










si 
9 i 
10 ! 

11 ! 
121 
13 ! 
14|- 
15 i 
+~ 
0 ! C 
i: 

2 i ( 

3 I 

4 | 

5 | 

G ! 

7 ! 
Si 
9 1 

10 1 
11 1 
12 1 

13 1 

14 1 

15 1 - 
+- 

0 1 C 


-Block 130— - 

MUSCPU eon-t. MORAMBLE, LOWMOVER, HIGHMOVER ) 

HIGHMOVER ) 

LOWLIM Y A LDX, A DCR, D CMP, <> IF, 

HIGH# Y A LDX, A ORA, 0< >, IF, 

HIGHCOUNTER Y DCRX, 0=, IF, A C MOV, 

HIGHLIM Y A LDX, !-!!GHSTEP Y ADDX, 

STOPHIGHLIM Y CMPX, =, IF, 0 HIGH# Y MVIX, THEN, 

A HIGHLIM Y SIX, C HIGHCOUNTER Y STX, THEN, THEN, 

LIMITCOUNT CALL, RAMPFLAG Y A LDX, 3 CFI, 0=, IF, 

( just came from LOWMOVER ) 1 A MVI, A RAMPFLAG Y STX, ELSE, 
A ORA, 0<>, IF, i RAMP ) 

RAMPFLAG Y IMRX, ( -tell LOWMOVER donothing ) 

HIGHLIM Y A LDX, L SUB, A MOVALUE Y STX, ELSE, ( change sign 
L SUB, A STEP Y STX, THEM, THEN, THEN, 

- > 


-Block 131- 

MUSCPU conir., MORAMBLE cent., STEPMOvER > 

HIGHLIM Y A LDX, D CMP, >=, IF, C at limit: ) 

LOWMOVER 5 

LOW# Y A LDX, A ORA, 0< >, IF, C not dead already ) 
LOWCOUNTER Y DCRX, @=, IF, A C MOV, 

LOWLIM Y A LDX, LOWSTEP Y ADDX, 

STOPLOWLIM Y CMPX, =, IF, 0 LOW# Y MVIX, THEN, 

A LOWLIM Y STX, C LOWCOUNTER Y STX, THEN, THEN, 

LIMITCOUNT CALL, RAMPFLAG Y A LDX, 

2 CPI, 0=, IF, RAMPFLAG Y DCRX, ELSE, 

A ORA, @< >, IF, ( ramp ) 3 A MV I, A RAMPFLAG Y STX, 

( -tell HIGHMOVER iro donutt i ng ) 

LOWLIM Y A LDX, L SUB, A MOVALUE Y STX, ELSE, L SUB, 

A STEP Y STX, THEN, THEN, THEN, 

TIMEBASE Y A LDX, A RAMELETIMER Y STX, THEN, THEN, 

- > 

-E1ock 132- 

MUSCPU VOLUME MOVING ) 


1 1VOLTIMER Y A LDX, A ORA, 0< >, IF, A DCR, 0= , IF, 

2 ! ( D=MCtracker , E = MOs®-t, H= 1 i m i tcKeck , L-stsps i ze ) 

31 MCTRACKER Y B LDX, D A MOV, 0F0 ANI, A E MOV, D A MOV, 

4 1 E SUB, VOLSTEP Y L LDX, L ADD, ( update -tracker ) A D MOV, 

5! VOLHIGHLaM Y H LDX, H CMP, 0>=, IF, H D MOV, (. check - top ) 
G1 A XRA, L SUB, A L MOV, ( change dir. > 

7 1 ELSE, A DCR.- VOLCWLIM Y M LDX, H CMP, f< , ZF, 












133 


(■--—B 1 oek 

( MUSCPU STEPMOVER, COMPDURMOVER ) 

STEPTIMER Y A LDX, A ORA, 0<>, IF, ( work on it ) 

STEPTIMER Y DCRX, 0=, IF, 

STEP Y A LDX, A E MOV/ t save for sign > babs $CALL» ( abs ) 
BIGOPASTEP Y ADDX, ( positive value ) 

STOPSTEPS Y CMPX, < positive ) 0< >, IF, C not done ) 
STEPTIMEBASE Y A LDX, A STEPTIMER Y STX, THEN, 7 E BIT, 

0< >, IF, NEG, THEN, A STEP Y STX, ( store ) THEN, THEN, 

C COMP-DURATION MOVER ) COMPDURATION Y A LDX, A ORA, @< >, IF, 
COMPTIMER Y DCRX, ©=, IF, COMPTB COMPTIMER Y MVIX, C equate > 
COMPSTEP Y ADDX, A SCR, 0<, IF, ( 1=>CARRY, 81=>NC ) 

0 COMPDURATION Y MVIX, ( both stop ) 

1 MST Y MVIX, ( tell background we're there ) ELSE, 

A INR, A COMPDURATION Y STX, THEN, THEN, THEN, 


h-Block 134- 

C MUSPCU cent., TBMOVER, NOMOVER ) 

( TBMOVER timebase ) TBSTEP Y A LDX, A ORA, 0< >, IF, 

C not done ) TBTIMER Y DCRX, 0=, IF, 

TIMEBASE Y ADDX, A TIMEBASE Y STX, STOPTB Y SUEX, 

0=, IF, A TBSTEP Y STX, THEN, 

TBTB Y A LDX, A TBTIMER Y STX, THEN, THEN, 

( NOMOVER noise mover ) NOTIMER Y A LDX, A ORA, ©<>, IF, 
NOTIMER Y DCRX, 0=, IF, C update ) 

SOUNDBOX Y C LDX, C DCR, ( output port > 

NOVALUE Y A LDX, NOSTEP Y ADDX, A NOVALUE Y SIX, A OUTF, 
NOSTOP Y CMPX, i timer to stop? ) 

0< >, IF, ( not done, reload ) 

NOTIMEEASE Y A LDX, A NOTIMER Y STX, THEN, THEN, THEN, 

RET, 

— > 


-Block 135 - 

( XX MUSIC INTERRUPTER mm COMPUTER MUSIC ) HEX 

SUBR MUSINTERP < music interrupter, pre-load IY ) 

<ASSEMBLE MST Y A LDX, A ORA, ( check overrun flag ) 

0= , IF, RET, THEN, A DCR, 0=, IF, ( AHA!! state transition ) 
process UMP, THEN, ( AHHA HAM M3T=2 => COMPUTER MUSIC ) 
COMPDURATION Y A LDX, A NOTETIMER Y STX, < compnusic duration 
random CALL, C use 3 rag. nalodv trackers, 1 for MO tracker ) 
NOTECOUNTER Y A LDX. A ORA, 0<, IF, ( new kev ? EXX, 



) 









w m 
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MOV, 

low chip ) 

C MOV, THEN 


< MUSCPU cont., RANDOM NOTES ) 

EXX, 0 MOTABLE H LXI, A E MOV, 0 D MVI, D DAD, M A 
A MOVALUE Y STX, A B MOV, C save from soundbox ) 

SOUNDBOX Y A LDX, 3 SUI, A C MOV, 20 CPI, <, IF, C 
B OUTP, C D MOV, 40 AD I, A C MOV, B OUTP, ( MO ) D 
EXX, H A MOV, C ucg this =fr for disp. to index ) t-disp « CALL, 
£ +7 to —7 ) ATRACKER Y ADDX, 15M0D CALL, ( index 0-15H ) 

A ATRACKER Y STX, UP-AN-OUT CALL, 

next note . ) t-disp . CALL, ( 47 -to —6 disp. ) 

ADDX, 15M0D CALL, C index 0-15H ) 

Y STX, UP—AN—OUT CALL, C get from NOTE TABLE ) 
next disp. ) 4 —disp- CALL, £ +7 -to -6 ) 

3M0D CALL, ( index 0-15H ) 

UP-AN-OUT CALL, 


E A MOV, ( 

BTRACKER Y 
A BTRACKER 
D A MOV, £ 

CTRACKER Y ADDX, 

A CTRACKER Y STX, 

£ done witrh notes 
— > 

-Block 137 

£ MUSCPU coni: ■ , 

LABEL process MUSPC 
BEGIN, C MUSPC 
M A MOV, H I MX, 


) MUSJEND JMP, 


PROCESS -the score, 
Y L LDX, MUSPC 1+ Y H LDX, 

in HL uniril done ) 

OF-OPCODES 14 CPI, C 


bad opcode check ) 


< , IF, EXX, C swap -to keep MUSPC around ) 
endprocess H LXI, N PUSH, ( ret -to end of process ) 

© OPADDRESSES H LXI, ( ge-t address of opcode verb ) 
RLC, C words > A E MOV, © D MVI, D DAD, 

M E MOV, H I NX, M D MOV, D PUSH, 

EXX, £ put MUSPC in HL ) RET, 

ELSE, 1 OR I, C quit ) THEN, 

LABEL endprocess A ORA, ©< >, 


C RET iro routine ) 


( opverbs return non—© or 0 ) 


( 


L MUSPC Y STX i H MUSPC 1+ 

LAEEL MUSEND © MSI Y MV IX? 

ASSEMBLE > 

— > 

-Block 13S- 

< MUSIC PROCESSOR- 
SUBR MUSCPUS 

MU5ICFLAG LDA, A ORA, 0< >, IF, Y PUSHX, 

LXIX, MUSCPU CALL, < 
LX IX, MUSCPU CALL, C 


END, 

STX, 

lei: interrupts run ) RET, 


MUSCPUS PUT TOGETHER ) HEX 


0 MUSIC-EARRAY-I 
0 MUSIC-BARRAY-2 


( F4 A MVI, 
A2 A MVI, 0 


0 OUT, 
OUT, > 


53 A MVI, 0 GUI 


Y POPX. 


itt , 


Kt 


SUBR busar o u n c 

MUSICFLAC 

8! 0 MUSIC-TA 
9 5 0 MUSXX-PX 
10SY POPX, THE 

k r i rQDE BMS £ 

! busaround 


d £ back—music — -ground ) 

r\ ? f F v pe 

V!e nr, T vT-r r f 


b a c k — m u s"" ? 


‘F4’ 


•5 MVI: 

/% b y • 


OUT; 


, ) 











w co Th in a) n oo cn © ^ rm n Th in © ^ w re in w r- <o m © ^ re re in ®^Nre^inuir^e3o 5 s©^rere^io 


+-———Block 139--- 

0!( MUSIC PROCESSOR- ALL xmusics NEED AN IY LOAD ) HEX 
11 

SUBR 1oadpc L MUSPC Y STX, L STARTPC Y STX, 

H MUSPC 1+ Y SIX, H STARTPC 1+ Y STX, RET, 

— > 


+-Block 140- 

j< MUSCPU SUBROUTINE CALLS ) 

! ( m SET SCORE IN HL, RAM IN IY, MULTIPLE IN E if req. % ) 

JSUBR bmusic 

! PRIORITY Y A LDX, A ORA, 0=, IF, 1 MST Y MVIX, 

| A NOTET 3 HER Y STX, A I NR, A MULTIPLE Y STX, Ioadpc JMP, 

! C leave MST =1 for BMS ) THEN, RET, 

!SUBR pmusic 1 MST Y MVIX, Y PUSHX, EXX, D POP, Music CALL, 

I 1 A MV I, A MST Y STX, A MULTIPLE Y STX, A PRIORITY Y STX, 
j 1oadpc JMP, 

!SUBR mmusic PRIORITY Y A LDX, A ORA, ©=, IF, 1 MST Y MVIX, 

! A NOTETIMER Y STX, E MULTIPLE Y STX, ioadpc JMP, THEN, RET, 
|SUBR mpmusic 1 MST Y MVIX, Y PUSHX, EXX, D POP, emusic CALL, 
! 1 A MV I, A MST Y STX, A PRIORITY Y STX, E MULTIPLE Y STX, . 

! Ioadpc JMP, 

S — > 


4--Block 141- 

( MUSIC PROCESSOR- EMUSIC, BMUSIC, ... ) 

CODE EMUSIC EXX, 0 MUSIC-BARRAY—1 D LX I , ( pass iro emus £ c ) 
MST H LX! , B BAD, 1 M MV I , ( make non-zero ) 

SOUNDBOX H LXI, B BAB, CHI PI M MVI, 

PANPORT# H LXI, B BAB, PAMPORT1 M MV I , 

emusic CALL, C musicoverurs flag is zeroed last ) NEXT 
( %%% ALWAYS CALL EMUSIC AS AN IN IT IN PROGRAM WMm > 

: H PUSHX, . 

Y LX IX, bmwsic CALL, Y ~OFX, NE'XT 

r-~.P v ri 

Y LX IX , pruciic CALL, ^ 

I f>- f -- r a r q p . Y p ij Sh!X , 


l CODE BMUSIC 

j 0 MUSIC-TAR 

l f*f\ B E 

i A MUS :c-x ; A 
!j CODE MXCSC :: 
i 0 MUSIC-CAT 
!; C 0 D E M P M U S I C 
! O MUSIC-BAR 
s_\ 


r Y pwj 


m p ir \ 


Nr 


NEX 












+-Block 142-— 

0i£ MUSIC PROCESSOR- E2MUSIC, B2MUSIC, ) 

1 1 CODE E2MUSIC EXX, O MUSIC-BARRAY-2 D LX I , £ pass to emustc ) 

2! MST H LXI, D DAD; 1 M MV I* £ make non-zero ) 

3! SOUNDBOX H LX I, D DAD, CHIPS M MV I, 

4| PANPORT# H LX I , D DAD , PANP0RT2 M MVI, 

S| emus i c CALL, £ muscoverun -flag is zeroed last ) NEXT 

6 1 ( *** ALWAYS CALL E2MUSIC AS AN IN IT IN PROGRAM ) 

7iCODE B2MUSIC H POP, Y PUSHX, 

Si O MUSIC-BARRAY-2 Y LX IX, bmusic CALL- Y POPX, NEXT 
9 [CODE P2MUSIC H POP., Y PUSHX, 

10i 0 MUSI C-BARRAY-2 Y LX IX, pmusic CALL, Y POPX, NEXT 
11iCODE M2MUSIC H POP, D POP, Y PUSHX, 

121 0 MUSI C-BARRAY-2 Y LX IX, mmusic CALL, Y POPX, NEXT 

13 1 CODE MP2MUSIC W POP, D POP, Y PUSHX, 

14 i 0 MUS I C-BARRAY-2 Y LXIX, music CALL, Y POPX, NEXT 

15 ! — > 

H-Block 143- 

0i ( JAYS VIDEO GAME GOODIES 5 : CL SCRERASE ; 

1 .'DECIMAL { : BINARY > 2 BASE ! { } } 

2 i { : QUAD > 4 BASE ! { j! } 

3 i HEX 

4 ICC? IFTRUE : GRAPHICS MAP 0 FB OUTP j OTHERWISE : GRAPHICS } 

5 ! I FEND 

6 i : TEXOUT 10 & £ SWAP ROT 4 * + 100 * + ROT FFFC AND 40 * 

7 i ROT 10© '£ ROT i ! NOW COUNT SPOST I 
Si: XY 100 * SWAP 40 * SWAP ? 

9iDEC IMAL 

10i: SETOUT 64 * + HORIZONTAL } 

11iCODE DOIT H POP, PCHL, NEXT 

121: INIT GRAPHICS 1 S OUTP 204 10 OUTP 43 0 SETOUT j 
131 —> 

14 1 

15 1 

H---Block 144-—-' 

01C QUEUE - VECTOR MANIPULATION ROUTINES ) 

1 1 £ THE QUEUE IS MAINTAINED AS A DOUBLE LINKED CIRCULAR LIST ) 

21 ( FIELD NAMES FOR QUEUE ENTRIES: ) 

310 C= FQS £ STATUS ) 1 C= PQFL 2 C= PQFH ( FORWARD LINK > 

413 C= PQBL 4 C" PQBH £ BACKWARD LINK ) 

515 C= PQRL S C= PQRH £ ROUTINE > 7 C= PQTB < TIME BASE ) 

6)8 C= VXZW £ EXCLUSION ZONE WIDTH > S C= VAUXS C AUX STATUS ) 

7 110 C= V ft IMP £ '* YIX ft "I ON TIMER ) 

8111 C= . VTLL ' ~ LH C 71 ME LIMIT ) 

P' 13 C= VX i! ' ; VX--" 'i rk C.— V’DXL *n C= VDXH £ X AND OX > 

10 117 C= VBDXL i C~ VDDXH ' DDX 5 V 
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-B1ock 

VECTOR FIELD 


VFVPL 32 
VFCL 34 
VSPL 36 


C 

31 C= 

33 C = 

35 C = 

37 C= VPTEL 38 
33 C= VIRL 40 

41 C= VINTER C 

42 C= VFNLPL 4 

44 C= V5HFTA C 

45 C= VIDENT C 

46 C= VFXEL 47 
48 C= VFYBL AS 
50 C= VASTKS C 


145 —----. ■ 

EQUATES CONTINUED ) 

C= VFVPH C FORMATION VECTOR POINTERS ) 

:= VPCH ( ANIMATION PROGRAM COUNTER ) 

:= VSPH ( ANIMATION STACK POINTER > 

C~ VFTBH (' ANIMATION PATTERN TABLE ) 
;=.VIRK € INTERCEPT CHECK ROUTINE’ ) 

C RACK CODE 


INTERCEPT CODE ) 41 C = VRACK 
3 C= VF'NLPH ( FINAL ANIMATION 
MAGIC REG USED IN LAST nRITc 
IDENTITY CODE - WHAT I AM ) 
C= VFXBH ( FORMATION X BIAS 
C= VFYBH ( FORMATION Y BIAS 
ANIMATION STACK AREA START ) 


PAT 

) 


:rn ) 


-B 1 ock 1 46- 

STATUS BIT EQUATES 


1 

7 

C= PQSRS-i 

c 

RUM/HALT ) 

2 

6 

C= PQSDW 

( 

DONT WRITE ) 

3 

5 

C= PQSDE 

c 

DONT ERASE ) 

4 

4 

C= PQSBF 

c 

DONT FREE ) 

5 

3 

C= PQSDS 

( 

DONT SCREEN SYNCHONIZE ) 

6 

2 

C= PQSUFP 

f 

USE FINAL PATTERN ON HALT 

T 

/ 

1 

C= PQSNMT 

- ( 

MO MASTER TIME LIMIT ) 

s 

0 

C= PQSFRZ 

( 

OFFSTAGE FREEZE ) 

9 

C 

AUXILLARY S 

TATUS 

■ up -r C* ‘ii 

' (5 Jf 

10 

7 

C— ASFLQK 

C. 

FORMATION MEMBER IS LOCKED 

11 

C 

EQUATES FOR 

VECTOR HEAD ) 

12 

0 

C= QFL 1 C= 

QFH 

2 C= QBL 3 C= QEH 

13 

— 

- > 




+-Block 147 ---— 

( VGS VWRITE ) 

SUBR vwrits C Write from a vector structure ) 

( in— I i c of proper vector ; vector equates set ) 

C WRTSYS 0< > for* .pattern board 0= for software write ) 

( out— pattern on screen I scradr and shift saved for VERASE ) 

VXFAND X B LDX f VMAGIC X C LDX ? VXH X D LDX f VXL X E LDX f 

VPATH X H LTYr VPATL X L LDX, H PUSH.? XT IY, 

y yu v u y 

~ f re 1 £ b s CA 






wr «tep Li~ 
C VS Hr 

— > 


s a : 











B1 ock 


148 


! ( VGS VERASE ) 

i SUBR verase C does pattern board erase f rom vector IX ) 
i C in- IX=vmagic of proper vector j vector equates set y 
i scradr and shift saved from VHRITER ) 

! ( WR73YS 8< > for pattern board 8 = for software write ) 

j ( out- erased pa ttern from screen ) 

! VXFANB X E LBX s VSHFTA X C LBX, VPATH X H LBX, VPATL X L LBX , 
I H PUSH , XT I Y j. 

! VSAH X H LBX, VSAL X L LBX, 
i writep CALL, Y POPX, RET, 
i DEC IMAL —> 


-I- B 1 ock 1 4*3 - 

! ( GLOBAL GAME RAM AREA START ) 

iHEX RAMBASE 380 + C= FIRSTRAMABDR FIRSTRAMADDR VPTR ! DECIMAL 
S@ V= FECOUNTER 3 BA= F1SCR 3 EA= P2SCR 8 V= MISSION 
18 V= PI ACT 8 V = P2ACT 
!0 V= SKILLFACTOR 0 V= PLAYERUP 

!0 V= NPLAYERS 0 V= OTHERFBCTR 8 V= OTHERSKILLF 

i 

!4 BARRAY vqhead : NILVQ 0 0 vqhead ! © 2 vqhead ! ; 

[firstramadbe 4© + C= ISTCLRADDR 
!LASTRAMADBR ISTCLRADDR - 1+ C= CLRSIZE 
[DECIMAL —> 


-i--Block 150- 

0!( STORAGE ALLOCATOR GOODIES ) 

1 ! ISTCLRADDR VPTR I 

2124 C= NODECOUNT 64 C= NODESIZE NODECOUNT NODESIZE 3K C= POOLSIZE 
3 [POOLS IZE BARRAY MEMPOOL 0 MEMPOOL VARIABLE FREELIST 
4 [ : INI TFREELI ST NODECOUNT 1 DO NODESIZE I * MEMPOOL 

51 NODESIZE I i - 33 MEMPOOL 1+ i LOOP C THREAD THRU POINTERS ) 

6[0 NODECOUNT i - NODESIZE » MEMPOOL 1-i- ! 0 MEMPOOL FREELIST » ; 

7[( GET A NEC” AST LANGUAGE - RETURN; HL-NODE.- A IF CAN'T ) 

8 i SUBR “REELI S'” L A MOV, X ORA, J CS-’ECN' F,OR NIL ) 

S \ 0< >, I~, M ITT. ; - NOV , H I NX,. N ;0 "0V f - sex - ' F REE“NX7 ) 

10 ! H DCX, FREEL"3" 3D“T.‘ THEN, PET* 

11 [CODE GE" v -.:OE EC- CALL, w- push, El , NEXT 'I “ERSE SN7~: V > 


14 l H INK; 












+-E1 ock 
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( ADD NODE TO QUEUE ROUTINE ) 

SUBR ADDQ ( NL = NEW, IY = HEAD ) 

QFL Y E LDX, QFH Y D LDX, E A MOV, D ORA, 0<>, IF, 

QBL Y C LDX, GBH Y B LDX, H PUSH, H INX, 

E M MOV, H I NX, D M MOV, H I NX, C M MOV, H INX, B M MOV, 
XCHG, D POP, !-? INX, H INX, H INX, E M MOV, H INX, D M MOV, 
E A MOV, 3 INX, E STAX, D A MOV, B INX, B STAX, 

ELSE, L E MOV, H D MOV, H INX, E M MOV, H INX, D M MOV, 

H INX, E M MOV, H INX, D M MOV, E QBL Y STX, D OEM Y STX, 
QFL Y STX, D QFH Y STX, RET, 

XT IY, ADDQ CALL, Y POPX, 


THEN, E 
CODE ADDTQ DI, EXX, H POP, 
NEXT —> 


EXX, El, 


+-Block 152 - 

( DELETE FROM QUEUE ) 

SUBR del* < I Y=HEAD, IX=NODE TO DELETE > 

QFL Y E LDX, QFH Y D LDX, QBL Y L LDX, QEH Y H LDX, < HEADER ) 

A XRA, D DSEC, ©=, IF, ( IF I AM THE ONLY GUY LEFT ) 

A QFL Y STX, A QFH Y STX, A QBL Y STX, A QBH Y STX, C NIL OUT 1 
ELSE, PQFL X E LDX, PQFH X D LDX, PQBL X C LDX, rGBH X E LDX, 

C L MOV, B H MOV, H INX, E M MOV, H INX, D M MOV, C FC PC M 1 2=F ) 

PQBL H LX I, D DAD, C M MOV, H INX, B M MOV, C EC FC N 3 3=EC N 1 ) 

X PUSHX, H POP, XCHG, H PUSH, C BE=NODE ABDR, TOF=NODE F'ORW > 
QFL Y L LDX, QFH Y H LDX, A ANA, D DSEC, H POP, 

©=, IP, L QFL Y STX, H QFH Y STX, < SET HEAD TO FC N1 ) 


ELSE, QBL Y 


lDX , QBH Y H i_DX, A ANA, D D S 3 L j 


SET TAIL 
X PUSHX, 


) THEN, 

M PUSH, 


:nj 


i.£* , 

THEN, 


POPX, 


C QBL Y STX, E QEH Y STX, ( 

CODE DELQ EXX, H POP, XTIY, 

X POPX, Y POPX, EXX, NEXT 

-Block 153- 

( ADVANCE TO NEXT NODE ON QUEUE ) 

SUBR nexirq C IT = HEAD ) 

QFL Y L LDX * QFH Y H LDX , H A MOV, L ORA , RZ> 

H INX, ME MOV ? H I MX, M D MOV, ( DE=FORWE FORMS! HEAD'] 2 


RET, 
CALL, 


H DCX, S-S DCX, L QBL Y STX, 
E QFL Y STX, D QFH Y STX, ( 

RET, 


■3 QBH Y STX, C BACRE HEAD l=NODE' ) 
FORWCHEAD ]=FORW[MODE] ; 


71 CODE Ml 




r U r 
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-Block 154-- 

( INCREMENT TIME BASES - C = TIME BASE, IY = Q HEAD ) 

SUBR INCTB 

QFH Y H LDX, H A MOV, L ORA, ( Q FORM, NIL CHECK ) 
H D MOV, BEGIN, ( QUIT IF NIL, ELSE REMEM FIRST ) 

2 LX I, D DAD, M A MOV, C ADD, A M MOV, < UPDATE ) 

T POP, ( AND RETURN PTR TO NORMAL 3 


QFL Y L LDX, 
R2, L E MOV, 
ID PUSH, FQ7B 
A ANA, D DSBC 


H I NX, M A MOV, H I NX, M H MOV, A L MOV, 
E XRA, A B MOV, H A MOV, D XRA, B ORA, 0: 
END, RET, 

— > 


( HL=FORWCNODE 1 ) 

= , ( ONCE AROUND > 


-Block 155- 

( NEW, IMPROVED, HOTROD INTERRUPT SYSTEM ) DECIMAL 
t THESE PARAMETERS TUNE THE BACKGROUND TIME SLICING ) 

0 V= BGWINBOW ( * OF LINES FOR BACKGROUND TIME SLICE ) 

0 V= BGTLMT C BACKGROUND MINUMUM SERVICE FREQUENCY ) 

HEX CC? IFTRUE £2 C= IPNT OTHERWISE HERE 0F + FFF® AND DP ! 
DATA KPNT 0 , 0,0, KPNT 2 4 C= IPNT I FEND 
1 V= BACKGROUNDRUNNING 0 V= LOCKOUTCOUNTER 0 V= BGTIMER 
0 V= LPYC 0 V= LPFLAG IPNT 2 + C= BGINTVEC 
0 V= TIMER© 0 V= TIMER1 0 V= TIMER2 © V= TIMERS 
( LIGHT PEN 'INTERRUPT ROUTINE ) 


SUER LP I NT PSW PUSH, VERAF IN, LPYC STA, 8 A 
INMOD OUT, PSW POP/ El, RET, 

C ROUTINE TO RETURN Y ADDRESS SCREEN IS AT ) 


LPFLAG LDA. 


ANA j 


£> S % 


LPYC LDA. 


L , 

RET , 


LPFLAG STA, 


BEGJ 


-- > 


g 

10 

i 1 
1 2 ! 
13; 

14 ! 

15 ! 


+-Block 156—:-- - 

C RESUME BACKGROUND - END INTERRUPT ) 

DECIMAL F= END I NT 
SUER RESUMEBACKGROUND <ASSEMBLE 
DI, EGWINDOy LDA, C ADD, A C MOV, 

112 SUI , 52 CPI, END I NT JRC, C A MOV, INLIN OUT, 

BGINTVEC A MV I, INFBK OUT, 

LABEL END I NT Y PCFX, X POPX, H POP, D POF, B POP, PSW POP, 

IE XX, EXAF, H ^0- , D PT? 3 POP, 1 A XV: ~ EACKGROUNDRUNN J. NG STA , 
i BGTLMT LD&* TOT IXFF 

] pcy _ T" ~ p!?TT p %_ 











-B lock 


157- 


0!C TRY TO RUN SOMETHING IN FOREGROUND ) 

1|F= RETPT F= TRYAGAIN 

2!HEX SUER TRYFOREGROUND <ASSEMBLE 

3!A XRA, BACKGROUNDRUNNING STA, El, 

4!LABEL TRYAGAIN GETSYC CALL, A C MOV, < C=CURRENT LINE ) 

5iLOCKOUTCOUNTER LDA, A ANA, RESUMEBACKGROUND JNZ, ( IF LOCKOUT ) 
6|BGTIMER LDA, A ANA, RESUMEBACKGROUND JZ, ( OR TIMER COUNTDOWN ) 
710 vqhead Y LX IX, QFL Y L LDX, QFH Y H LDX, H A MOV, L ORA, 

8!RESUMEBACKGROUND JZ, H PUSH, X POPX, PQTB X A LDX, A ANA, 

9!RESUMEBACKGROUND JZ, PQSDS PGS X BITX, 0=, IF, 

101VYH X A LDX, C SUB, 0< , IF, CMA, A I NR, THEN, 

IliVXZW X CMPX, RESUMEBACKGROUND JC, THEN, DI, nextq CALL, 

12|EI, TRYAGAIN H LX I, K PUSH, PGRL X L LDX, PGRH X H LDX, PCHL, 

13 I ASSEMBLE > 

14 ! — > 

15 

-i-Block 158--- 

0!( BACKGROUND END INTERRUPT ) 

1iHEX SUBR BGENDI PSW PUSH, B PUSH, D PUSH, H PUSH, EXX, EXAF, 

2!PSW PUSH, B PUSH, D PUSH, H PUSH, X PUSHX, Y PUSHX, 

3180 A MV I, INLIN OUT, IPNT A MV I, INFER OUT, TRYFOREGROUND JMP, 

B PUSH, 


12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
S 


4 

i 

i 

SUBR TIMINT 

C TIMER 

INTERRUPT ROUTINE 

) 


5 

i 

i 

PSW PUSH, B 

PUSH, D 

PUSH, H PUSH, 

EXX 

, EXAF, PSW PU 

SH 

6 

i 

D PUSH, 

H PU 

SH,. X PUSHX, Y PUSHX, 




7 

i 

B 

TIMER0 

LHLB , 

K A MOV 

L ORA, 0< >, 

IF, 

H DCX, TIMER® 


8 

B 

TIMER! 

LHLD jp 

H A MOV 

, L ORh , 0< >, 

IF, 

H DCX, TIMER! 

r““ 

O 

9 

1 

1 

TIMER2 

LHLB , 

y A MOV 

, L ORA, 0< >, 

IF, 

4 DCX, TIMERS 

S 

10 

1 

1 

TIMER3 

LHLD, 

gjj fp ! 'v' 

, L ORA, ©< >, 

IF, 

H DCX, TIMERS 

•r- 

11 

1 

1 

BGTIMER 

LDA, 

A ANA / 

0< >, IF, A DCR 

, BGTIMER STA, THEN 


HLD i 


‘HEN, 

‘HEN, 

'VI 


tf t , 

priW . 


1 C MV I 


0 


vqnefia 

MC 


H 

EXX, EXAF, H POP, 

- ; B I ock 1 S3- 

( INTERRUPT START ROUTINE ) HEX 
CODE INTSTART DI, IPNT f SWAB > 


Y LXIX, INCTB CALL, MUSCPUS CALL, 
LDA, A ANA, TRYFOREGROUND JNZ, 
POP, D POP, B POP, PSW POP, 


OP, B POP, PSW POP, El, RE' 


! , 


A MVI, ST AI, IPNT A 


INFBK OUT, 1 A MV I, 
80 A MV I, INLIN OUT. 
I M2, EI # NEXT 
— > 


BACKGROUNDRUNNING STA, 8 A MV I, 


MV I , 

INMOD OUT, 








- —-—Block 160-——— 

< ROUTINE TO DELETE VECTOR IF STATUS SO INDICATES ) 
SUER KILLOFF PQSRH PQS X BITX, 0=, IF, DI, 0 vqhead 'i 
delq CALL, PQSDF PQS X BITX, 0 PQS X MVIX, 

0=, IF, X PUSHX, H POP, freenode CALL, 


4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 


THEN, El, THEN, RET, 
— > 


-Block 161- 

MACROS TO GENERATE ANIMATION OPCODES 


1 

{ 

SETP 

> 

0 B, 

, { ! 

} 



2 

{ 

SETM 

> 

2 B, 

B, { J 


) 


3 

{ 

SETR 

} 

4 E, 

t { $ 

> 



4 

{ 

SNA 1T 


} 6 B, 

B j { 

ft 

/ 


) 

5 

t 

ACALL 


> S E, 

jr i Jf 


> 


6 

{ 

AJMF 

> 

10 B, 

jr { } 


> 


7 

{ 

SETDC 


> 12 B 

$ SWAP 



, t 

& 

{ 

SETDDC 

> 14 

3, SWAP 


, , t 

3 

t 

ARE! 

jr 

1 3 , 

t i ) 




10 

{ 

AHALT 


> 18 B 

, { ; . 

} 



1 1 

{ 

SET I 

> 

20 B, 

2 { 1 


} 


12 

{ 

SETXC 


} 22 E 

, , { 



} 

13 

{ 

SETYC 


} 24 E 

, , t 

1 


) 

14 

i 

DISPL 


} 26 B 

, SWAP 


B 

2 B 2 

15 

— 

> 









HI- 


-Block 

1G2 — 

- 


0 

! C 

MORE ANIMATION 

MACRO 


STUFF ) 

1 

it 


AREPEAT 

. } 28 

E j? B j 


HERE { J > 

2 

it 


ALOOP } 

36? E 

f , { 

J? 


3 

!i 


SETS } 

32 B j 

E J jS 2 


t 1 } 

4 

it 


PAT I } 

34 B * 

3 f { 

SR 

9 

) 

5 

it 


ASMCALL 

■s ^ 


t 

s > 

■ 6 

it 


C* jp* -y fcs tt > 

38 P 

p -I 

I 

} 

7 

it 


q tr -;ir T 0 x 

/■. C' ; 

p ^ 

j! 


8 

ft f, 


,2- 2L , ' . - r- 



4 

r X , 

■ 9 

il s 

:j | 


iY ii\: ij Y 


■I 'H C' 

.■■j 2 

WAP Ej ; { | } 

1® 

* V 


SlL } ;• 

7’;, 

- f { 


V 

1 i 

it 


SETYB } 

4 8 

, c 

n 

x 

1 2 I { 


S E T X P } 

ft? 

/ 

- - p \ 


* \ 

2 $ 

13 

! { 


FOREVER 

X «j'.; 

p*r / ? 


>. 

/ 

1 4 

It 


EVEEFOR 

'\ 7 

7 m „ 

j 

4 

r % 


) DECIMAL 


LX IX 












-B1 ock 


163- 
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( ANIMATION INTERPRETER ROUTINES ) 

SUBR RASETP M E MOV, H INX, M D MOV, H INX, E VPATL X STX, 

D VPATH X STX, RET, 

SUBR RASETM M A MOV, H INX, A VMAGIC X STX, RET, 

SUBR RASETR M E MOV, H INX, M D MOV, 1-5 INX, E PQRL X STX, 

D PQRH X STX, RET, 

SUBR RAWAIT M A MOV, H I MX, A VATMR X STX, L VPCL X STX, 

H VPCH X STX, H POP, RET, 

SUBR RACALL M C MOV, H INX, M E MOV, H INX, XCHG, 

VSFL X L LBX, VSPH X H LDX, E M MOV, H INX, D M MOV, H INX, 

L VSPL X STX, H VSPH X STX, C L MOV, E H MOV, RET, 

SUER RARET VSPL X L LDX, VSPH X H LDX-, H DCX, M D MOV, H DCX, 
M E MOV, L VSPL X STX, H VSPH X STX, XCHG, RET, 

SUER RAHALT FQSRH PQS X RESX, H POP, RET, 

SUBR RASETXP M A MOV, H INX, A VXPAND X STX, RET, 


-Block 1S4- 

( MORE ANIMATION INTERPRETER ROUTINES ) 

SUBR RASETI M E MOV, H INX, M D MOV, H INX, E VIRL X STX, 
D VIRH X STX, RET, 

SUBR RASETXC M E MOV, H INX, M D MOV, H INX, E 
D VXH X STX, RET, 

SUBR RASETYC M E MOV, H INX, M D MOV, H INX, E VYL 
D VYH X STX, RET, 

SUBR RAJMP M E MOV, H INX, M D MOV, XCHG, RET, 

SUBR RASETDC M E MOV, H INX, M D MOV, H INX, 

E VDXL X STX, D VDXH X STX, 


VXL X STX, 

X STX, 


M E MOV, H INX, 


MOV, H I MX, 


E VDYL X STX, D VDYH X STX, RET, 

SUER RASETDDC M E MOV, H INX, M D MOV, H INX, E VBBXL X STX, 

D VDDXH X STX, M E MOV, H INX, M D MOV, H INX, E VBBYL X STX, 
B VBBYH X STX, RET, 

---Block 165- 

< YET MORE ANIMATION INTERPRETER ROUTINES ) 

SUBR RASETREP M A MOV, H INX, VSPL X E LDX, VSPH X D LDX, 

D STAX, D INX, E VSPL X STX, D VSPH X STX, RET, 

SUBR RALOOP M E MOV, H INX, M D MOV, H INX, VSPL X C LBX, 

VSPH X B LDX, B DCX, B LDAX, A DCR, 0< >, IF, B STAX, XCHG, 


ELSE, C VSPL X STX, B VSPH X STX, THEN. 


SUBR RASET; 

1C XRA, 3 ft"' 


?OV, H.INX, M B MOV, 


. RET 
I NX, 


PQS 


A LB? 


a f v. 


A M a \ l 


1 1 a I HEN, !R «£?. ft S* 1 V j? 
■12 I H VXH X STX r D 

13 | VYL X L LDX,- 

14 1 XCHG, 

15 | DECIMAL — ~ > 


Z J? 'K iTC C ? R!!“ 

7 pr a a 

- X , ‘W-L- 

X H LDX 

t 'V- if , ••<*.* 

f! 8, V p V’ 


, A ^ 

nr f 

DAD. 










-Block 1G6- 

( THE ABSOLUTELY LAST SCREEN OF ANIM 
IBR RAPATI M C MOV, H INX, 0 E MV I , 
»TBL X L LDX, VP TEH X H LDX, B DAD, 


\ i nu_ nujv 

SUBR RAPAT 
VPTBL X L LDX, 

C VPATL X STX, 
SUBR RASMCALL 
SUBR RASETPT M 
D VPTBH X STX, 
SUBR RASETFP 
D VFNLPH X S 
SUBR RASETXZW M 
SUBR RARANDOMDO 
i nop . r. AMCt . RN 


M 


LDAR, C ANA, 
SUBR RASETXB 
D VFXBH X STX, 
SUBR RASETYB H 
D VFYEH X STX, 

-B1ock 

JUMP TABLE 

T- A. A ITTII 


RET P — > 

1ST- 

( JUMP TABLE TOR INTERPRETER ROUTINES 
DATA AJTBL RASETF , RASETM , RASETR , 
RACALL , RAJMF * RASETDC , RASETDDC , 

RASETXC , RASETYC , 
RAPATI 


+ 

0 
1 
2 

3 

4 

5 | 

G ! D 

7 

8 
9 

10 
11 
12 

13 

14 

15 

+ 

0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 ! 

+-B 1 ock 

0 | C ANIMATION 
1!F= ANIRET 
2!SUBR Sinter 
3 ! VPCL X L LDX 
4!LABEL ANIRET 
5 i ANIRET D LX! 

S ! AJTBL H LX I j? 

7 IB PUSH , RET, 

3 l SUBR sip 
9 IPQSUFP 
10|L VPAT L 
11 ! — > 

12 j 

13 l 
14 -1 


» , n a 

VPT.B-H X H 
~ VPATH X 
1 E MOV, H 
E MOV, H *I NX j 

RET, 

M E MOV, H I NX j 
STX, RET, 

U i!i A MOV, H I NX 

H 

RET, 


TX, XCHG, 

I NX, M D MOV, 
NX, M D MOV, 


XCHG, 

M C MOV, 

RET, 

H I NX, 

H I NX, 


H -INX, M B MOV, 

D PUSH, RET, 

" X STX, 


M 


MOV, H 
C MOV, 
RNZ, XCHG, 

E MOV, H 
PET, 

E MOV, H 


M D MOV, 

, A VXZU X STX, 
NX, M E MOV, H I 


E VFTB1 
H I NX, E VFNLPL X STXj 


NX, 

NX, 


M D MOV, 
M D MOV, 


H I NX, 
H I NX, 


RET, 

NX, M D MOV, H I NX 
E VFXBL X STX, 

E VFYBL X STX, 


RACALL 
RAHALT , 
RASETREP 
RASETPT 
RASETXB 
— > 


RASE!I , 
, RALOOP 
■ RASETFP 
. RASETYB 


RASETS’, 
RASETXZW 
RASETXP j 


RAWAIT , 
RARE! , 
RAD ISP , 
s i-i i a , RASMcALL 

raRandomdo , 


k 1S8- 

UPDATOR ROUTINE 


A 


VATMR X h 

VPCH X H LDX, 


LDX, A ANA, RNZ, C QUIT IF NOT NEEDED 


3 PUSH, 
DAD, M 


C MOV, 

MOV, H 


H I NX, 0 B MVI, XCHG. 
INK, M B 


T* V 
? A f 


P Q S X I 
VFNLPL 


/ , • 


MOV j? XCHG f 
IF/ 


t 


v 

A 




H LDX , 










m pi ^ 


-B1 ock 


4S3- 
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< DECREMENT ANIMATION TIMERS, COMPUTE VECTORING TIME > 

F= TBVD F= TBOK F= TBQUIT 
SUBR TBCALC < ASSEMBLE DT, 

PQTB X C LDX, VAT MR X E LDX, B A MOV, C SUB, 

0>=, IF, A VATMR X SIX, © PQTB X MVIX, 

ELSE, C A MOV, B SUB, A PQTB X STX, © VATMR X MVIX, B C MOV, 
THEN, PQSNMT PQS X BITX, TBQUIT URNZ, ( QUIT IF NO MASTER > 

0 B MV I, VTLL X L LDX, VTLH X H LDX, A ANA, B DSBC, 

TBVD JRZ, TBOK UP, 

LABEL TBVD L A MOV, C ADD, A C MOV, A XRA, A H MOV, A L MOV, 
A VATMR X STX, A PQTB X STX, PQSRH PQS X RESX, 

LABEL TBOK L VTLL X STX, H VTLH X STX, 

LABEL TBQUIT El, RET, ASSEMBLE> 

— > 


-Block 170- 

( TIME EASED VECTOR UPDATE - IX=VECTOR ADDR, IY=QUEUE ENTRY ) 
C THIS VERSION VECTORS LINEARLY WITH LIMIT CHECKING ) 

HEX F= .VLPI F= .VLP2 F= NUD 


C A MOV, A ANA, RZ, < DONT IF 
( NOW UPDATE COORDINATES ) 

VXL X L LDX, VXH X H LDX, VDXL 
LABEL .VLPI D DAD, .VLPI DJNZ, 
L VXL X STX, H VXH X FT: 

VYL X L LDX, VYH X 
LABEL 


A -3 SI A , 

rl LDX, VDYL 


, VLP2 D DAD 


L VYL X STX, H \ 
LABEL NUD PQSRH 
DECIMAL —> ' 


HI , 

rrw 


'ERG VECTORING WANTED ) 

X E LDX > VDXH X D LDX, C E MOV, 

U A'MOV, 50 CPI, MUD JRNC, 

X E LDX, VDYH X D LDX, C B MOV, 

MUD JRNC, 


VLP2 DJNZ, H A MOV, OBA CPI 
■i X STX, 28 VXZU X MUIX, RET, 
*S X RESX, PQSDW PQS X SETX, 


RET, ASSEMBLE> 


—---Block 171-- 

C INITIALIZE INTERRUPT VERES ) 

CC? NOT IFTRUE 

LPINT IPNT 2 - UI TIM I NT IPNT U! BGENDI EGINTVEC U! 

: FIREUP I NISTART ; OTHERWISE 

: FIREUP LPINT IPNT 2 - U! II MI NT IPNT U? BGENDI EGINTVEC U! 
IMTST ART i I FEND 


2 START 

BGII NET 


’ INITFREELI ST NILVQ LOCKOUT COUNTER ZERO 

"FLAG ZERO 33 BG WINDOW < 3: 3GTLM T 1 r I 


B !C ROUT IN 
t 0 l SUER VIW 
11 | A ANA , ©■ 
I H A n 0 V , 

1DECIMAL 


TO 


■ v - 


:ftmg ) 

■’ c; T l K| ? 

LDX, 
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USING XOR ) 


CALL, ELSE, 


0 =, 

RESX, 


PQSDE PQS X SETX, 


CHECKING ) 


+-Block 172- 1 

( SUBROUTINE TO UPDATE PATTERN 
SUBR XAWRITE TBCALC CALL, 

VECTLC CALL; < UPDATE VECTOR ) 

PQSDE PQS X BITX, ©=, IF, verase 

PQSDE PQS X RESX, 

THEN, aup CALL- PQSDW PQS X BITX, 

IF, vwriie CALL, ELSE, PQSDW PQS X 
THEN, KILLOFF JMP, 

C SUBROUTINE T 0 XAWRITE WITH INTERCEPT 
SUBR XIWRITE TBCALC CALL, 

VECTLC CALL, ( UPDATE DA VECTOR ) 

PQSDE PQS X BITX, 0=, IF, verase CALL, ELSE, 

PQSDE PQS X RESX, THEN, aup CALL, PQSDW PQS X BITX, 

IF, VIWRITE CALL, ELSE, PQSDW PQS X RESX, PQSDE PQS 

THEN, KILLOFF JMP, 

— > 

+-Block 173 -- 

( SUBROUTINE TO VECTOR USING 
F = VUPX F= VUPY 
SUBR VECTDD < ASSEMBLE PQSFR2 
PQSDW PQS X SETX, RET, THEN, 

VXL X L LDX, VXH X H LDX, VDXL 
VDDXL X C LDX, VDDXH X B LDX, 

LABEL VUPX XCHG, E DAD, XCHG, D DAD, A DCR, VUPX JRN2, 
E VDXL X STX, D VDXH X STX, L VXL X STX, H VXH X STX, 

H A MOV, S© CPI, CY", IF, PQSFRZ PQS X SETX, PQSDW PQS 
THEN, PSW POP, VYL X L LDX, VYH X H LDX, VDYL X E LDX, 
VDYH X D LDX, VDDYL. X C LDX, VDDYH X B LDX, 

LABEL VUPY XCHG, 


©=, 

X SETX, 


SECOND DERIVITIVE ) 


PQS 
C A 
X 


X BITX, ©< >, IF, 

MOV, A ANA, RZ, FSW PUSH, 
E LDX, VDXH X D LDX, 


X SETX, 


E VDYL X 

H A MOV, 
ASSEMBLE > 


Q TV 

0 iAi j? 

132 l 

— > 


, 3 DAD , XCHG j. D DAD , A Di 
VDYH X STX , L VYL X STX, 
RC P PQSFRZ PQS X SETX , 


VUPY URNZ 


H VYH 


“X 


? rl 5 


>ETX, RET 


— --Block 174- 

( SUBROUTINE TO UPDATE PATTERN USING XOR AND 2ND DERV VECTOR ) 
SUBR XADDWRITE TBCALC CALL , 

VECTDD CALL, 

PQSDE PQS X BITX, 0=, IF, verase CALL, ELSE, 

PQSDE PQS X RESX, ■ 

THEN, Sup CALL, 


PQSDW 

PQSDE 


PQS X B l ' 


0=, . ?F 

PQSDW PQS 


X RE 


t CALL, 

:sx, ThT 


ELSE , 


KILLOFF UHt 










w m 


-B1 ock 


175- 


0 

1 

2 

3 

4 

5 
£ 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
£ 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
£ 

7 

8 


< UPDATE VECTOR FROM JOYSTICK ) HEX 11 C= JOYSTICK 
F= JYLP1 F= JYLP2 F= JXLF1 F= JXLP2 F= JXCK 

SUBR JOYUPD <ASSEMBLE C A MOV, A ANA, RZ, JOYSTICK IN, 18 ANI,, 
18 CPI, JXCK JZ, VYL X L LDX, VYH X H LDX, VDYL X E LDX, 

VDYH X D LDX, C B MOV, JOYSTICK IN, 10 ANI, 0< >, IF, 

LABEL JYLF1 A ANA, D DSBC, JYLP1 DJNZ, H A MOV, VDDYL X CMPX, 
CY, IF, VDDYL X H LDX, 0 L MVI, THEN, ELSE, 

LABEL JYLP2 D DAD, JYLP2 DJNZ, H A MOV, VDDYH X CMPX, CY-, IF, 
VDDYH X H LDX, 0 L MVI, THEM, THEN, L VYL X STX, H VYH X STX, 
LABEL JXCK JOYSTICK IN, £ ANI, £ CPI, RZ, VXL X L LDX, 

VXH X H LDX, VDXL X E LDX, VDXH X D LDX, C B MOV, JOYSTICK IN, 

4 ANI, 0=, IF, LABEL JXLP1 A ANA, D DSEC, JXLP1 DJNZ, H A MOV, 
VDDXL X CMPX, CY, IF, VDDXL X H LDX, 0 L MVI, THEN, ELSE, 

LABEL JXLP2 D DAD, JXLP2 DJNZ, H A MOV, VDDXH X CMPX, CY-, IF, 
VDDXH X H LDX, 0 L MVI, THEN, THEN, L VXL X STX, H VXH X STX, 
RET, ASSEMBLE> DECIMAL —> 

— ——-Block 1 7£—— — ——— 

C SUBROUTINE TO UPDATE PATTERN FROM JOYSTICK ) 

SUBR JOYWRITE TBCALC CALL, 

JOYUPD CALL, < UPDATE FROM JOYSTICK ) 

38 VXZW X MV IX, 

PGSDE PQS X BITX, ©=, IF, verase CALL, ELSE, 

PQSDE PQS X RESX, 

THEN, aup CALL, PQSDW PQS X BITX, 0=, 

IF, VIWRITE CALL, 

ELSE, PQSDE PQS X SETX, PQSDW PQS X RESX, 

— > 


JEN. 


! ILLOFF JMP, 


) 


-Block 177-’- 

( COMPUTE DELTA FOR 1 COORDINATE 
C FIRST A NEGATION SUBROUTINE > 

SUBR CMPHL H A MOV, CMA, A H MOV, L A MOV, CMA, A 

RET, 

( IN: HL=T ARGET, BE=T I ME, EC = ST ART 


MOV, H INX, 


) 


SUBR CDELTA 


ELSE, 
XCHG, 


CMPHL 
THEM, 


E PUSH, A ANA, B DSBC, CY- , IF, UNSDIV CALL, 
CALL, UNSDIV CALL, CMPHL CALL, XCHG, CMPHL CALL, 

TP TS ifV PS 7?! 7\ TS PS TT TT * 

i. ! vr r aj .l ! H sJ j? rv'« h j 


10 

n 











oj ro ^ m m to 
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-Block 178--- 

< CLEAR VECTOR ) F= INIZL 

SUBR CLRVEC <ASSEMBLE X PUSHX, H POP, G4 B MV I, A XRA , 
LABEL INIZL A M MOV, H INX, INIZL DJNZ, RET, ASSEMBLE> 

< RESET ANIMATION STUFF ) 

SUBR CRASHA DI, L VPCL X STX, 


X PUSHX, H FOP 
H VSPH X STX, 
DECIMAL — > 


V A STX' 
0 VATMR 


j i) t_X i , 

X MV IX, 


H VPCH X 
D DAD, L 
El, RET, 


STX, 

VSPL X 


-Block 179- 

( SUBROUTINE TO PUT VECTOR ON PROCESS Q > 

SUBR STARTVEC DI, Y PUSHX, 

X PUSHX, H FOP, © vc. head Y LX IX, ADDQ CALL, 

Y POPX, El, RET, 

( SUBROUTINE TO INITIALIZE A STANDARD XOR WRITE 
HEX 

SUER SETSTDW 8 Y L LDX, 9 Y H LDX, CRASHA CALL, 

6 Y L LDX, 7 Y H LDX, L VTLL X STX, H VTLH X STX, L VRACK X 
5 Y A LDX, A VI DENT X STX, ( SET ID EYTE WITH H.O. STATUS 


) 


4 Y A LDX, A PQ5 


STX, 2@ VMAGIC X MVIX, 


30 VXZW X MV IX, XAWRITE H LX I, 

L PQRL X STX, H FQRH X STX, RET, 
DECIMAL —> 


i 

Hi-Block 18©- 

( XVMOVE COMMAND - MOVE AN EXISTING VECTOR ) 

( VRACK XI Y1 X2 Y2 ALI ST TIME STATUS VECTOR VMOVE 
CODE XVMOVE X PUSHX, H POP, Y PUSHX, D POP, EXX, 
FRAME 2 Y L LDX, 3 Y H LDX, K PUSH, X POPX, CLRVEC 
16 Y C LDX, 17 Y E LDX, 12 Y L LDX, 13 Y H LDX, 

6 Y E LDX, 7 Y D LDX, D PUSH, CDELTA CALL, 

IL VXL X STX, Hi VXH X STX, E VDXL X STX, 3 VDXH 
ID POP, 14 Y C LDX, 15 v g. LDX, 1© Y L LDX, 11 v 
j CDELTA CALL, L '-"YL X t~X, H v'xv ^ S7N, E VDYL X 
IB VDYH X STX.- PL'”P'"~"-X CALL, 10 w A LDX, A VRACK 
j STARTVEC CALL, " s T" iV 1“ 18 H LX", SP DAD, 3FHL, 
i EXX, D PUSH, X « PUSH, X POPX, NEXT 


CALL. 


STX, 

H LDX, 
TJX, 


'MOVE 


A < > 


y y jjyfj ^ ry p 




FUBAR 53 THEM 


D c 


1 4 | 
I 5 ! 


STX, 

) 












0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
B 

7 

8 
S 

1 0 


1 3 

14 

15 


H-B 1 ock IS 1- 

( X5TART COMMAND - START AN EXISTING VECTOR ) 

( ALIST TIME STATUS VECTOR VMOVE ) 

CODE XVSTART X PUSHX, H POP, Y PUSHX, D POP, EXX, 

FRAME 2 Y L LDX, 3 Y N LBX, H PUSH, X POPX, CLRVEC CALL, 
SETSTDW CALL, STARTVEC CALL, 

UNFRAME 8 H LX I, SP DAD, SPHL, 

EXX, D PUSH, Y POPX, H PUSH, X POPX, NEXT 

: VSTART GETNODE BUP @ < > IF XVSTART ELSE XDI FUBAR” THEN ; 

DECIMAL —> 


C START A VECTOR WITH JUST INITIAL X AND Y ) DECIMAL 
C X Y ANIMATION TIME STATUS XYVSTART ) 


pefnode CALL, El, H PUSH, 

Y H LDX, H PUSH, X POPX, 

LDX, C VRACK X STX, 

H'LDX, L VXL X STX, H VXH X STX, 
H LDX,' L VYL X STX, H VYH X STX, 


SUER XYVSTART BI, < 

FRAME 2 Y L LDX, 3 
CLRVEC CALL, 6 Y C 
12 Y L LDX, 13 Y 
10 Y L LDX, 11 Y 
SETSTDW CALL, STARTVEC CALL, 

UNFRAME 12 H LX I, SP DAD, SPHL, RET, 

( CLUDGE TO CALL.AS A VERB - VERY BIZARRE BUT IT SHOULD WORK- ) 
SUBR CLUDGEIT H PUSH, D PUSH, E PUSH, EXX, H PUSH, D PUSH, 

X PUSHX, D POP, Y PUSHX, H POP, EXX, XYVSTART JMP, 

( X Y ANIMATION TIME STATUS XYVECTOR ) 

CODE XYVECTOR D FOP, K POP, EXX, B POP, D POP, H POP, 

CLUDGEIT CALL, EXX, D PUSH, X POPX, H PUSH, Y POPX, NEXT 
— > 

———— --Block 183--- 

C CHECK' FOR INTERCEPT WITH VECTOR ) 

F= NO I NT 

SUBR CHECKVEC <ASSEMBLE 
FQ5RH PQS Y BITX, NO I NT 
PQSDE PQS Y BITX, MO I NT 


IMZ, ( OR IF NOT WRITTEN 


VPATL XL LDX, VPATH 


H l. D X , 


VPATL Y L LDX, VPATH Y H LDX, 


M C 

M TR 


VYH X 

NO I NT J 
VXH X A 


A L 


Y 




MOV, 

MOV 

D CMP, 


H I NX - 
, H I NX j 


M 

M 


MOV. 

JWijOV ' 


NO I NT 


NO I NT 

LABEL 


b's'w , 


' INT 


n; i 


ANA. 


ASS 










0 

1 

2 

3 

4 

5 

6 
7 
3 
9 

10 
11 
12 

13 

14 

15 


--Block 184-- 

( CHECK GROUP OF VECTORS FOR INTERCEPT ) 

( IX = ME, C=MASK SPECIFING SUBSET TO EXAMINE 
( RETURNS N2 AND IY=CULPRIT IF FOUND, ELSE Z 

F= ICKL F= NOTEND F= NOTH IM 
SUBR CHECKALL <ASSEMBLE 

© vcihead LHLD, HL—NEXT FELLA AFTER ME ) 

LABEL I CKL X PUSHX, D POP/ ( DE=ME ) 

H A MOV , D CMP, NOTEND JRNZ, L A MOV, E CMP, 
LABEL NOTEND H PUSH., Y POPX, 

VIDENT Y A LDX, C ANA, NOTHIM JRZ, ( SELECTED 
B PUSH, CHECKVEC CALL, B POP, 

RNZ , ( KICKOUT IF HE IS IT ) 

LABEL NOTHIM PQFL Y L LDX, PQFH Y H LDX, ICKL 
ASSEMBLE > 

DECIMAL 
— > 

-Block 185- 


R2, 

BY MASK? ) 

JMPR, 


OK NUMBER 

PATTERNS , 

5 X 

7 ORDERED 

0 

-9 ) 



1{DATA NUMPATS 

BINARY 







2101111100 

B, 

i©@@©01© 

B, 

10©0©@1 © 

B, 

10000010 

B, 

©1111100 

3!00000000 

B, 

i© o o oi@© 

B, 

l i i 1111 © 

B, 

10000000 

B, 

@©©@@@@© 

4i1110010© 

B, 

1001001© 

B, 

1001^010 

B, 

10010010 

E, 

10@@11©0 

5!01000100 

B , 

1©©@©01 © 

B, 

1©010010 

B, 

1 001001 © 

B, 

©11011 @© 

G!001i©00@ 

B, 

© © 1 © 1 © © 0 

B, 

00100100 

B, 

11111110 

B , 

© © 1 0 © © © © 

7101001110 

B, 

1 ©0@ *v Cl * © 

. B , 

10001@10 

B, 

1©001010 

E , 

© 11 *i © @ i © 

8101111000 

JO , 

1 © 0 1 © 1 0 © 

B, 

1 0010010 

E, 

10010010 

B, 

fk* 1 US A $3 ffl! 

9 j 00000010 

B, 

11100@1© 

3, 

©0010010 

B, 

@@@@1010 

B , 

@00001 1 © 

10101101100 

B, 

10010010 

B, 

10010010 

B, 

1001@010 

B, ■ 

©1 1 

11100001100 

B, 

10010©1@ 

B, 

1 0 © 1 © © 1 © 

B, 

01010010 

B, 

0®1i11@@ 

12 1 DECIMAL - 

13 1 

14 1 

15 1 

-- > 









1 0 
11 
12 

13 

14 
1 S 


+--Block 186- 

< ROUTINE TO DISPLAY A BCD NUMBER 3 DIGITS LONG FROM VECTOR ) 
HEX F = SHOWNUM NUMLP 
SUBR DISPBCD3 <ASSEMBLE 

VXL X E LDX , VXH X D LDX, VYL X L LDX, VYH X H LDX, 

4Z8 B LX I, relabs CALL, XCHG, C A MOV, 

MAGIC OUT, 3 A MOV, XF.ANB OUT, 

•! VPATL X L LDX , VP ATM X H LDX, H I NX, M A MOV, ©F AN I , 

jj SHOWNUSI CN2, H DCX, M A MOV, RFC, RRC, RRC, RFC, 

^HOnNUM CALL, M A MOV, 

-ABEL SHOyNUM H PUS 7 -', F AMI, A C MOV, PLC, RLC, C ADI 
1© B MV I, MUMFA^S * LX I , ■ 3 DAD, XCHG, F • 3 MV I, 
jLABEL NUMLP D LD A ‘ , A M MOV, H I NX, A M MOV, A K9A , H INK, 

IA ' M MOV, V “NX, M MOV , D ; NX , 

|L A MOV, A?, ? •_ MOV, A MV I V A-c, A H - 
o NUMLP DUNN - "v D ? D D^"'V XCHG- H * AS REDDLE > 

I DECIMAL -— > 


m m m m m m m m m m 
















+--Block 187- 

0i ( INTERRUPT WRITE NUMBER ROUTINE ) 

1ISUBR NUMWRITE 
2iTBCALC CALL/ 

3!aup CALL , 

4,'PGSDW PQS X BITX, 0=, IF, DISPB0D3 CALL * THEN, 

5iKILLOFF JMP, 

G ! — > 

7 ! 

8| 

91 

10 ! 

11 ! 

121 

13! 

14! 

15! 

——B1ock ——————— 

0! ( BASE STATION ) 

1[DECIMAL DATA FIREBASE 5 B, 13 B, 

2!QUAD 0222 B, 2222 B, 2000 B, 0000 B, 0 B, 

312111 B, 1111 B, 2220 B, 0000 B, © B, 

4!0222 B, 2222 E, 2000 B, 0000 B, 0 B, 

510000 B, 111© B, ©@22 B, 2200 B, 0 B, 

6!0000 B, 0111 B, 0002 B, 2220 B, 0 B, 

711111 B, 1111 E, 1102 B, 2222 B, 0 B, 

810002 B, 2222 E, 2222 B, 2222 B, 1000 E, 

9!1111 B, 1111 E, 11©2 B, 2222 B, 0 B, 

10!0000 E, 0111 B, 0002 B, 2220 B, 0 B, 

1110000 B, 1110 E, 0022 B, 2200 E, 0 B, 

1210222 B, 2222 B, 2000 B, 0000 B, © B, 

1312111 B, 1111 B, 2220 E, ®00© B, © B, 

1410222 B, 2222 B, 200® B, ©000 B, © B, —> 

15 1 

+-Block 189- 

01C SMALL EASE ) DECIMAL DATA SMALEASE 4 B, 11 B, QUAD 
110222 B, 2220 B, 0000 B, 0 B, 

212222 B, 22@® B, 000® E, © B, 

310011 B, 0000 E, 0000 B, 0 B, 

410111 B, 1©@0 B, 220© E, © B, 

5 11111 B, ill® IS, ©22® B, © 3, 



14 \ 












+-Block 190 


0 

i < GORF 

) DECIMAL DATA 

GORF 6 

B, 

15 B, 

QUAD 


1 

>2000 

B i 

3330 

B f 

000© 

B , 

0000 

B, 

0010 

B, 

0 B, 


2 

12003 

B / 

3333 

E p 

330© 

B, 

©000 

B, 

0100 

B, 

0 B/ 


3 

12223 

E, 

3333 

E , 

3333 

Bft 

3000 

B, 

1 000 

B, 

0 B , 


4 

j 0003 

B, 

3333 

B ft 

3333 

E ? 

3333 

E, 

@000 

B , 

0 B » 


5 

! 0033 

B , 

3331 

B j? 

1 11 1 

3 ft 

3333 

B jr 

3300 

E , 

0 B , 


G 

! 0031 

B, 

1 132 

E, 

0 4 4 4 

£. 4 4 A 

E, 

3333 

E, 

3330 

B , 

0 B , 


7 

j 0032 

B, 

1233 

TTi 

C- ft 

O O O ■TJ 

US 

Ad ft 

O O <3 3t 

B, 

3333 

B, 

© B , 


s 

j 0031 

B / 

1133 

E ft 

.pc,, ^ M 

3 3 3 3 

O 

ft 

3333 

B, 

3333 

3, 

0 E 9 


9 

10032 

B, 

1 233 

E s 

O C Cj-'TJ ■ 

E j> 

3333 

E, 

3333 

B , 

© E j> 


10 

10031 

B , 

1131 

El ft 

1111 ■ 

E , 

3333 

B, 

3330 

B, 

0 Bp 


1 1 

| 0033 

B, 

3332 

Vti 

3 ft 

2111 

B ft 

3333 

B, 

3300 

B , 

0 E ft 


12 

10003 

B , 

3333 

B ft 

O O Oj O; 

B , 

3333 

B, 

0000 

S ft 

0 Bp 


13 

12223 

B , 

3333 

E j 

3333 

E ft 

3000 

B, 

1000 

B , 

0 Bp 


14 

12003 

B , 

3333 

E j 

33©0 

B j 

0000 

B, 

0100 

E, 

0 B ft 


15 

! 2000 

B / 

333© 

B ft 

© © © © 

B ft 

©00© 

E, 

0010 

B , 

0 Bp 

-> 

+- 

--- 

— E 1 ock 


131- 

— 





\ 


0 

i< GORFB 

) DECIMAL DATA 

GORFB 

S 

B t 15 

B , 

QUAD 


1 

! 0000 

B, 

3330 

3B ft 

©00© 

B f 

0000 

B, 

2000 

B jp 

0000 

Bp 

2 

! 0003 

B , 

3333 

E f 

3 3 © © 

E / 

@000 

B / 

0200 

E ft 

©00© 

Bp 

3 

[1113 

Bp 

3333 

B s 

o o o o 

B t 

3000 

B s 

2000 

E jp 

0000 

B jp 

4 

! 1003 

E, 

3333 

B, 

3333 

B , 

3333 

B, 

0000 

E, 

©000 

Bp 

5 

! 1033 

E, 

3331 

ITS 

3 ft 

1 222 

T* 

3333 

E ft 

3300 

E ft 

000© 

. E jp 

6 

! 0033 

S j> 

2332 

B, 

2222. 

B, 

3333 

B, 

333© 

3 ft 

©000 

E ? 

7 

i 0033 

B, 

2333 

"R 

3333 

B ; 

3 0 3 3 

B / 

3333 

E, 

0000 

Ep 

8 

! 0033 

B, 

2333 

IT; 

4 3 3 3 

B J 

3333 

B, 

3333 

B f 

©000 

B j? 

3 

! 0033 

B , 

2333 

B , 


B,? 

3333 

B ! 

3333 

B, 

0000 

B ft 

10 

j 0033 

B , 

2331 

E j? 

1222- 

3 ft 

3333 

B, 

3330 

JD« ft 

@000 

E ft 

11 

! 1033 

B , 

3332 

B, 

2222 

B j? 

3333 

B , 

3300 

B ft 

©000 

E ft 

12 

i 1003 

B, 

3333 

JiS j? 

3333 

Tv? 

L? ft 

3333 

B / 

©00© 

Bft 

0000 

Bft 

13 

! 11 13 

E, 

3333 

E ft 

-”"l ■'”>! O —“=! 

O O O O 

B ft 

3©00 

B, 

2000 

E ft 

@ 0 0 0 

H j? 

14 

! 0003 

B, 

3333 

E ft 

330© 

B ft 

0000 

B, 

0200 


@00© 

B / 

15 

! 0000 

Bp 

3330 

Ji ft 

© © © © 

TTk 

J ft 

0 0 © 0 

B , 

2000 

E ft 

0000 

E ft DECIMAL 


+- 

— 

—E I ock 


1 C ad — 

— 

--—_ 






0 

it FIRE 

BASE E 

XPLOSION 

PATTERN ) 





1 

i DAT A 

FBEXP1 4 

B 

, 12 E 

ft 

QUAD 






2 

i ©000 

B s 

3@©0 

B f 

©010 

B, 

000© 

B, 





3 

i 3000 

B , 

33@3 

E t 

©00© 

B / 

©000 

B / 





4 

i 0333 

B, 

3333 

p 

©22© 

ts 

ft 

©00© 

E 9 





5 

I @033 

E, 

3333 


"t? O “'CJ |FP*> 

id J> 

© © 0 © 

3 , 





e 

j 0033 

E j? 

3133 

r? 

=11- j? 


H3» 

Ad ft 

© © © © 

B, 





7 

■ ^ 

! 3333 

B, 

~ s - « . 

__ . 

__ 

i ■ ft 

[!?! © 

B j 





3 

! ©333 

id* „b> 

331 

a 


J? 

rTj f- rft 0 

IT 





1© 

II © © 3 3 

iuw/ J? 

©333 


3 3 © 3 


© 0 0 © 

B 





1 1 

j 1 0 3 0 

B , 

@ 0 3 3 

T n 


-^“1 

•n©0© 

2 9 





12 

| @00© 

-G jp 

@033.' 

"s 

'■'"I ^ fT> 


©00© 

E 





13 

\ ©0©@ 

B , 

0003 


--T-- r~- f. ■ 

• P 

fT*j^ 

J.j ft 





14 

i DEC I HAL 

-- > 











15 ! 














+-Block 193 


&! ( ANOTHER FIREBASE EXPLOSION 

PATTERN 

> 



1iDATA 

FBEXP2 5 

B 

> 17 

B , 

QUAD 






2IO0O1 

B, 

@©©@ 

E, 

©00© 

B, 

@000 

E, 

0000 

B, 



3! 0000 

B , 

1 0@© 

2 f 

@ © 0 © 

3, 

0000 

B jr 

@@0@ 

B j 



4!000© 

B , 

A * 4 rfHh 

ni 

1 ; j 


r* 

47 j 

0000 

B jf 

0000 

B * 



5 j@©00 

B, 

© 11 e 

ii* j? 

@@! © 

B j 

0000 

B, 

@©00 

B , 



6i©0@@ 

B , 

0111 

B, 

1110 

B, 

0000 

B f 

3©©© 

B j 



7!0000 

B, 

©131 

E j 

1 1 1 0 

B / 

0110 

B , 

©@©0 

B jp 



8 S 0000 

B, 

1133 

B, 

’ 311 1 

B jr 

1111 

B, 

0000 

B jp 



9|0000 

B, 

1133 

B $ 

3333 

B j? 

3311 

B jp 

0000 

E jp 



1013001 

B, 

1333 

3E jp 

*•% . O 

3, 

3310 

B t 

©0©@ 

B, 



1110111 

B, 

1333 

B j? 

.3333 

B 3 

311© 

E, 

0000 

B t 



1210111 

B > 

3333 

B j 

3333 

E j 

3110 

B, 

©@@@ 

B $ 



1310011 

B / 

3333 

E, 

3333 

B, 

331 1 

B , 

@©@© 

E, 



1410011 
15 1 — > 

E, 

331 1 

B j? 

3331 

B j 

3319 

E, 

O©0© 

3, 



+- 

— 

B 1 ock 


i! fZ2\ A 

— 

-- 






01( CONTINUATION 

OF FB 

EXP2, PhASOR AND 

NULPAT 

) 

110000 

B , 

1111 

B i 

1 1 1 1 

B jp 

1 1 1© 

E, 

©000 

B , 



210011 

B, 

©11© 

B, 

©11© 

B, 

1011 

B, 

1000 

E , 



310010 

B, 

@©00 

B j 

000© 

B, 

1 000 

B, 

1 @00 

B, 



4 1110© 

B, 

000© 

B j? 

0000 

B , 

1 ©@© 

B / 

0©@© 

B, 



51 DEC IMAL 

BATA 

PBURST 

4 B 

, IB/ 

QUAD 1111 

e j mi 

61 DECIMAL 

BATA 

NULPAT 

1 B 

r 1 B 9 

0 

B, 




71 DECIMAL 

8 1 

— > 










3 1 

10 ! 












11 1 












12 1 












13 1 












14 1 












15 1 












+ - 

— 

Block 


1 35 

— 







01 ( FBEXP3 

) 










1 1 DAT A 

FBEXP3 S 

B 

, 23 

B j 

QUAD 






210000 

B, 

© @ @ © 

E j? 

2 0 0 0 

e. 

@ © © @ 

B , 

0©0@ 

B , 

@@@@ 

B, 

. 3 j .0000 

3, 

0003 

^ ? 

1 200 

E, 

0000 

E , 

0 0 0 0 

B , 

0000 

B, 

4|@@@© 

E, 

2221 

E , 

112© 

T? 

J3Ji jp 

0©@@ 

B jp 

0000 

B JP 

@00© 

B JP 

510@©2 

B, 

1 1 i 1 

«“:> jp 

4 g 


@@22. 

B’ j. 

0 0 rl>] 0 

B j. 

@©@© 

B jp 

S!@023 

2 , 

313 3 

■ - J 

n* t r?, •# 


2212 

2 7 

ztm 

pi 

0 f>. 0 f7 

E, 

7!@211 

M 3 

77 T* 

T 7' 

73 ■7 r -; '*7: 

' Tr ’ 

-v 4*1 A 

B n 

i ’p f?> p 

T 7 

f’\ *T7i P' 

B 7 

O 1' -■! 

r ^ 


T 7 



PT| ~i 

7“' 


^ 7 

P 

rr^i 

7 

* C} : ;0 @ 0 @ 


pppp. 

2, ^ 


• ‘i 7 

•T; p, p { p 

' 



0 -J 0 0;: 

-*■ r 

SI J 0002 

B, 

.>[! * o^r 

T; 

‘T’ -~r- — 


“T] -Tj ■•”!; ;7T; 


3231 




12 l @021 

B j 

/> ■t? tt 

T; 

■7? 'T: 


'T: '7"; '7': 7-'; 




.7; P p' 

'7- 

1 3 l @211 


3322 

2' 7 


1 , 

w 

J.J- 7 

t *7:> 

T 7 


ili« 7 

t'4 12211 
15 1 — > 

B, 

3333 



' ■ ' 7 


T 7 

1 C 22 

: 7 

;7': 0 •'T” 0 

,3 p 


, 1111 B , © B f 















+—---Block 19G 


0 

1 

It CONTINUED FBEXP 3 ) 
10211 B, 1133 B, 3333 

B, 

3311 

B, 

1120 

B , 

0000 

B, 

2 

I 0021 

B, 

3333 

B, 

O O -T* 

O --3 3 3 

B, 

3331 

B , 

2200 

B 9 

©00© 

B, 

3 

j 0002 

B, 

3323 

T ? 

3 JP 

’0 0 0 

JL? JP' 

Oi ^ • r *Ti 

-j “j v-r 

B, 

©©©© 

B , 

©00© 

B , 

4 

I 0000 

B, 

3231 

0 „ 


B jf 

*ji 3 3 3 

E, 

000© 

■ E j 

0000 

B r 

5 

1 0000 

B, 

2133 

,3 j 

;; j 3 2 3 

B > 

3 332 

B j 

2200 

B } 

©00© 

B, 

G 

I 0002 

E, 

1 1 1 3 

J? 

!,J 1 33 ' 

B jp 

3331 

E jp 

112© 

E, 

0000 

B, 

T 

/ 

| ©000 

B, 

2111 

TO 

£> jp 

1 123 

E, 

131 1 

E ;> 

120© 

B, 

0000 

B , 

8 

| 0000 

B, 

0211 

T 7 

3 J? 

1 2©2 

B j> 

1111 

B jp 

2000 

B, 

0000 

B, 

9 

j 0000 

E, 

0021 

E, 

2 0 0 © 


2112 

B j? 

©00© 

Bjf 

0000 

E, 

10 

! 0000 

B } 

0002 

■t^r 

000© 

rs 

3 j 

©22© 

B , 

0000 

B ff 

© © ©0 

B JF 

1 1 
12 

13 

14 

15 

0 

1 

2 

|-> 

1 

|( FBEXP 4 ) 

I DECIMAL DATA 
12000 B , 0000 

197 - 

FBEXF 4 G 
B t 0020 

B 

B, 

, 23 B, 
©©©© B/ 

QUAD 

0000 

B / 

2000 

B, 

3 
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TERY LB! 
NX 

, .D M MOV, 

C A MOV, 
Lr.lt D DAD, 


, / js BIT, 

, DM MOV, H 
El, RET, 

RLC, RLC, A E 


0— , 
I NX, 


D DAD, XCHG, 

IF, B DAD, THEN, 
MASTERX LDED, 


MOV, O D MV I, 

I NX , M D MOV, H 
POP, H PUSH, 

D DAD, THEN, 


D 


I NX, 

D PUSH, 


XCHG, 
— > 


H POP, 
-BI ock 


RET, 


M E MOV, H 

CALL, D DAD, 

0< >, IF, 10 D LX I, 

E MOV, 0 D MV I, D DAD, 

D PUSH, Y POPX, 

H I NX, M D MOV, CALCINVX CALL, D DAD 


T M ' 


( RECOMPUTE L 
F = LLFL F= LLFND 
SUBR RELMT 
R2, INIVLL 
LABEL LLFL 
A H MOV, D I NX, 
LABEL LLFND INVLL 
C A MOV, LEFT INVN 
LABEL ULFL D 


A H MOV, D DCX, 
LABEL ULFiSD INVU 

DEC IMAL — > 


215- 

S ) HEX 

LLFND F = ULFL F= ULFND 
<ASSEMBLE INVADERSLEFT LDA, A ANA, 

H LX I, © ALIVEBITS D LX I, 800 B LX I, 

D LDAX, A ANA, LLFND URNS, H A MOV, 10 SUI, 

C A MOV, 8 ADI, A C MOV, LLFL DUNS, RET, 
1 SHLD, 7 ALIVEBITS D LX I, INIVUL'H LX I, 
STA, 38 C MV I, 

A s-i N A , iJLr NU JrsNz , h MOV, 10 A D ~ , 
SUI, A C MOV, ULFL UMFR, 


OAX. 


MOV, i 

■3LD, C 


A MOV, RIGHT INVN 


r 

STA, 


RET, ASSEMBLI 


-B1 ock 


216- 


"EP MASTER COORDS ONE TICK AND LIMIT CHECK ) HEX 


C SUBR TO 

C ROUTINE TO WRITE ONE INVADER, IF POSSIBLE ) 

F= INVFIND F= STEPMASTER F= NONERD 
SUBR WRITE INVADER <ASSEMBLE 

INVADERNUM LDA, A C MOV, XALIVEBITS CALL, NONERD J! 

DI, .XRACKSITS CALL, INVFIND UNZ, NOTEANIM CALL, El 


LABEL NONERD INVADERNUM LDA, 

J WRI TEINVft"" I~ U~ Y 7 ., 


A INR,..3F AN I, INVADERNUM 


‘A, 


i LABEL 
■ — > 


RROU 


-I A 0 

1 "-u- a 

1 5 l 
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-Block 217- 

( WE FOUND AN INVADER - WRITE HIM 1 

LABEL INVFIND INVADERNUM LDA, CALCINVY CALL, MASTERY LDED , 

D DAD, XCHG, INVADERNUM LDA., 7 AN I , RLC , A C MOV. 

0 B MV I, INVPATAE LHLD, 3 DAD, M C MOV, H I NX, M B MOV, 

E PUSH, XT I Y, 2© E LX!', 1 D BIT, @< >, IF, 1 Y H LDX, !-! DCR, 

0 L MV I, D DAD, XCHG, A0 C MV I, THEN, B PUSH, 

INVADERNUM LDA, 

CALCINVX CALL, MASTERX LBCD, E DAD, XCHG, B POP, relabs CALL, 
DI, writep CALL, NOTEANIM CALL, Y POPX, INVADERNUM LDA, 

A I NR, 3F AN I, INVADERNUM STA, STEPMASTER UZ, RET, 

ASSEMBLE > 

CODE WRTINV RACXTIMER LDA, A ANA, 0=, IF, B PUSH, X PUSHX, 
WRITE INVADER CALL, X POPX, 3 POP, THEN, NEXT 

DECIMAL —> 


-Block 218- 

< REWRITE A RACK MEMBER USING NORMAL PATTERNS ) 

HEX 

C USED FOR GAME INITIALIZATION ) 

F= TOGGLEMEMBER 

SUBR REWRITEMEMEER <ASSEMBLE XRACKEITS CALL, RZ, 
LABEL TOGGLEMEMBER 
GETASTATE CALL, 

20 B LX I, relabs CALL, DI, writep CALL, El, RET, 
ASSEMBLE> 

CODE REWRITER H POP, B PUSH, Y PUSHX, L C MOV, 
REWRITEMEMEER CALL, Y POPX, B POP, NEXT 
DECIMAL —> 


+-Block 213- 

|( REENTER RACK ) HEX 
SUBR PLOTREENTRY 
VRACK X C LDX, GETASTATE CALL, 

0 B MV I, I-I VYH X STX, 

28 VXZU X MV IX, 

XCHG, VXL X A LDX, @C© AN I, A E 
VXH X D LDX, A ANA, B DSEC, 

i0< >, IF, K A MOV, A ANA, 0<, IF. 


I THEN, D D'' 
IE A MOV, " 
jY PUSHX, "■ 
SPOSRH PQ? 
SB A MOV, ? 

I Tup’ll , qsPT 


H 


■ O T 3 


MOV j 

-4® H 
X STX r 

'*J i& X F-ii 


'X, H 

LDX, XRACXBITS CALL, 


LX I, ELSE, 40 H LX I, 
B I NR, THEN, 

X FTX , 


VMAGIC 


V I 


A r 


i ” > 

o 

a 










+--Block 220- 

0!C INTERRUPT ROUTINE TO REENTER ft GALAXIAN ) DECIMAL 
1|F= ROGER 

2!SUBR RENTGAL <ASSEMBLE 
3!TBCALC CALL, E PUSH, 

4iPQSDE PQS X BITX , C=, IF, verase CALL, ELSE, PQSDE PQS X RE5X, 
5!THEN, aup CALL, E POP, 

GIPQSRH PQS X BITX, ®<>, IF, 

7iLABEL ROGER B PUSH, PLOTREENTRY CALL, B POP, 

8!PQSRH PQS X BITX, 0< >, IF, C DCR, ROGER JRNZ, THEN, 

9!THEN, PQSDW PQS X BITX, ®=, IF, vurite CALL, ELSE, 

10!PQSRH PQS X BITX, ©<>, IF, PQSDW PQS X RESX, 

11!PQSDE PQS X SETX, THEN, THEN, 

12|KILLOFF JMP, ASSEMBLE > 

13 ! — > 

14 | 

151 

H-Block 221- 

0!( CHECK FOR INTERCEPT WITH RACK MEMBER ) 

1|( RETURNS NZ, C=INVADERNUM IF DETECTED, ELSE Z ) 

2!F= NORKI 

3!HEX SUBR RACKCHECK <ASSEMBLE 
4 jVXL X L LDX, VXH X H LDX, H I NR, H I NR, 

5!MASTERX LDED, rt ANA, D DSBC, H A MOV, A ANA, NORKI UM, 

GiRRC, RRC, 7 AN I , A C MOV, VYL X L LDX, VYH X H LDX, 

7|MASTERY LDED, A ANA, D DSBC, H A MOV, 2 ADI, RRC, 

8i38 ANI, C ORA, AC MOV, XRACKEITS CALL, RET, 

9!LABEL NORKI A XRA, RET, 

10iASSEMBLE > 

11 |DECIMAL — > 

12 ! 

13 1 
14! 

15! 

+ -Block 222- 

0i ( ANIMATION LIST AND ROUTINE TO EXPLODE THE FIREBASE ) 

1iHEX DATA FBEXP3UB 0 0 SETDC 

2!4 6 DISPL FBEXP1 SETP @8 SWA IT A® SEIM 03 SWA 11 

3!20 SETM -4 ~6 DISPL FBEXP4 SETP 08 SWA IT A® SEIM ©8 SWA IT 

412© SETM 1 2 DISPL F3EXP2 SETP ©8 SWA IT A® SETM ®8 SWA IT 

5!20 SETM -1 -2 DISPL FBEXP3 SETP 8 SWA IT A® SETM S SWAIT 20 SETM 

£ ! ARET 

7 1 DATA FBEXF FBEXFSU3 ACALL FBEXF5 SETP 8 SWA IT A® SETM 8 SWA IT 



15 ! 
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-Block 
) HEX 


223- 

TABLE 


( SCORIN 
500 , 500 , 

DECIMAL DATA EXPI 
5 SWA IT EXPLOSION 
EXPLOSIONS SETP 5 
DATA EXP IXV EXFI3U 
DATA EXPNS EXP I SUB 
DATA EXPNF 1 SWA IT 
DECIMAL r— > 


ASTBL 60 


60 


80 


10© 


300 


200 


UB EXPLOSI ONI SETP 5 SWA IT EXPL0SI0N2 SETP 
SETP 5 SWA IT EXPLOSI 0N4 SETP 5 SWA IT 
SWA IT NULPAT SETP ARET 

S ACALL AHALT 

ACALL NUMWRITE SETR 1 SWAIT ARET 

HEX BF 4© SETS 1C SWAIT BF 0 SETS AHALT 


■-Block 224- 

( MORE SCORING GOODIES 
SCR60 EXPNS ACALL 
SCR8© EXPNS ACALL 
SCR100 EXPNS ACALL 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

HEX 


) 

0 ASTBL SETP EXPNF AJMP 

2 ASTBL SETP EXPNF AJMP 
3 ASTBL SETP EXPNF AJMP 


SCR300 EXPNS ACALL 4 ASTBL SETP EXPNF AJMP 

SCR200 EXPNS ACALL 5 ASTBL SETP EXPNF -AJMP 

SCR500 EXPNS ACALL 6 ASTBL SETP EXPNF AJMP 

DATA EXPTHEGORF FBEXPSUE ACALL FBEXP5 SETP 4© 


SWA IT 


A0 SETM 40 SWA! 
20 SETM NULPAT 
EXPNF AJMP 
DATA ATTACKS 


‘ 2© 
?ETP 


SETM FBEXP6 SETP 4© SWAIT A© SETM 40 SWAIT 
NUMWRITE SETR 1 SWAIT 7 ASTBL SETP 


’TEL 3CR60 


SCR60 


'HEGORF 


SCR80 
DECIMAL - 


SCR1 ( 


SCR30© 


-Block 225- 

< BACKGROUND FWASOR ! 

( ROUTINE TO EXPLODE 
HEX SUBR P INTERPRCC A BCR, 0=, 
A C MOV, © E MV I, ATT ACKEXPTBL 
M B MOV, PINTERX LBED, PINTERY 
ELSE, PINTERN LBA y A C MOV, 


NTERCEPT PROCESSING ROUTINES ) 

AN INVADER ) 

IF, PINTERN LDA, 7- AN! , RLC, 

H LX I , B DAD, 11 C MOV, H I NX, 
LHLD, 


DI 


XRACKBITS CALL 


■ & 


I © 
1 1 


!Mj SV 

XrINV 

DCR, 
ROUT 
UBR P 


M XEA/ A 11 MOV, XAL 

• JOGGLENENFET CALL., 


B 'CD j 


^ r.J 


J l 


f7)- 


I N • 

” A" 


r 'o n f 

NTEPCEP" 
'LAC LDA 


p 

" A r 


IVEBITS 

' t* . ns a *3 

•L-' i- j» 

- \ ~r ; -VjPTjpC 


CALL f 

fC.rr t a 


M XRA j 


ALL j 


ANA, 


r| IXC.L. 

I’PIN 
i RET 


O ■ 




■ v'T? , 
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-Block 226 : - 

( ROUTINE TO CALL FROM SCAN LOOP > 

CODE PIFCHECK X PUSHX, Y PUSHX, EXX, PINTERCHECK CALL, 

Y POPX, X POPX, 0< >, 1F, H PUSH, D PUSH, 1 H LXI, ELSE, 

0 H LXI, THEN, H PUSH, EXX, NEXT 

: PHASORINTERCEFTCHECK PIFCHECK IF 1 = IF 7 AND ASTEL ZP 
ELSE 7 AND 2 X RSTBL © + PZ THEN t 

UPDATESCORE THEN j 
DECIMAL —> 


-Block 227—- 

( ANIMATION SUBR TO INITIALIZE THE FIRE BASE 
( NEEDS INTERCEPT AND LIMITS SET BEFORE CALL 
HEX DATA PLAYERANIM JOYWRITE SETR 100© SETYC 
20 100 SETDC 

FOREVER FIREBASE SETP 78 SWAIT EVERFOR 
( ROUTINE TO ACTIVATE THE FIREBASE ) 

: ACTFE FEAN I M © 0 0E2 0 FBVECTOR XVSTART ? 
DECIMAL — > 


) 

) 

@600 SETXC 


H-Block 228—- 

( CHECK FOR PLAYER HIT ) 

HEX 

: PHAIT WTIMER S BEGIN BMS PHASORINTERCEPTCHECK WTIMER ( 
END ; 

: PLAYERHITCHECK PLAYERHIT ® IF 1G PHASORINTERCEPTCHECK 
36 PHAIT EMUS IC E2MUSIC FBCOUNTER • 0= IF 
1 GAMEOVER ! I ENCOFFRAME . ! ELSE FBCOUNTER @ 1 - DUP 

FBCOUNTER ' F^AT'i'*r'F?s?5FS ® i 0©i SWAP SYAL 75 ' 1 -S ?r MR T TEP 

PA Y ~ 7 H. 1 7 7 7 7 C 1 7 " M “ " © 01“ 


0 = 


[£■ f| 




t£ 5 DEC 1HAL 
135.— > 

1 4- \ 

1 5 1 










cm m * in 
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( COMMON INITIALIZATION GOODIES ) 

CODE NULCODE NEXT 

: REPAINTRACK 64 0 DO I REWRITER LOOP j 
HEX 

: INITMISSIONRAM XBI GRAPHICS 
0 1STCLRABDR CLESIZE FILL 

1 MUSICFLAG B! EMUS IC E2MUSIC 
1 WRTSYS B! 

' NULCODE RE INIT 1 NULRET FI REACTI ON ! j 
: STARTGAME 0 PiSCR ZERO 1 Pi SCR ZERO 0 P2SCR 
3 FBCOUNTER ! PLAYERUP ZERO NPLAYERS ZERO 

SKILLFACTOR ZERO ; 

DECIMAL —> 


ZERO 1 P2SCR ZERO 


-Block 23©- 

( SPECIAL ROUTINE TO MOVE PHASOR BLAST 
C SUBROUTINE TO XAWRITE WITH INTERCEPT 
HEX F= PHL 

SUBR PHWRITE <ASSEMBLE FQTE X C LDX, 0 PQTB 
LABEL PHL B PUSH, VXH X A LDX, A I NR, A VXH 
48 CPI, CY~, IF, PQSRH PQS X RESX, THEN, 
PQSDE PQS X EITX, ©=, IF, verase CALL, ELSE, 
IPQSDE PQS X RESX, T 
VI WRITE CALL, THEN 
B POP, PQSRH PQS X 
THEN, KILLGFF UMP, 

ASSEMBLE > 

DECIMAL — > 


) 

CHECKING > 


MV IX, 
STX, 


'HEN, PQSRH 
3 1TX, ©< >, 


PQS 

IF, 


X BITX, 0< >, IF: 
C DCR, PHL URNZ. 


-Block 231- 

( START OR RESTART THE PHASOR MOVING ) 

SUER DOF I REACT € M MOV, FI REACT I ON LHLD, PCHL, 

HEX SUBR SETPXY 

0 FBVECTOR Y LX IX, VXL Y L LDX> VXH Y H LDX, 500 D LXI, 
D DAD, L VXL X STX, H VXH X STX, VYL Y L LDX, VYH Y H L3 


70© D LXI, D Li 
RET, 

SUBR SHOOTPHASi 
CLRVEC CALL, S" 
2© VMAGIP X Mv. 
L PQRL X STX, ■ 
11 JH VIRH X STX 
- P B U R S T H l X ~ - : 
‘ ST ART VEC C ALL 
I SUBR RESHOQTF ? -T 
a FjE!C I MAL —«— > 


L VYL X S’ 


A. , 


U \ i Y LI 


STX, £© VATMR X MVIX, 


DOF l REACT CALL 

c ^ v x z y x v v j 

"ARM X .TT'XL p[4i 




-, 

? ©S X XV TX, 
[X* I T 'E 

SS 1 LrliLD , 

yp^TH X STX■ 


V qTY, 


MV IX; 


CAL 


CALL, 
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-Block 232- 

( CHECK FIRE SWITCH ) 

F= FIREBUT 

SUBR FIRESWCK <ASSEMBLE 


FIRETRACK 
RZ , C ft MOV, 
LABEL FIREEU 
( KICKOUT IF 
PQSFRZ PCS 


H LX1, JOYSTICK IN, A C MOV, M XRA, SWF I RE AN! 
SWFI RE AMI, FIREBUT JRZ, C M MOV, RET, 

PV1 LIXD, DI, PQ3RH PQS X EITX, 0< >, IF, 
PHASOR EXPLOSION IN PROGRESS ) 

X EFT: RNZ, RESHOOTPHASOR CALL, 


ANA, RNZ, SHOOTPHASOR CALL, THEN, 
MUSIC-BARRAY-1 Y LXIX, bmusic JMP, 


LIXD, PQSRH PQS X 


ELSE, PQS X A LDX, A 
El, IDSCORE H LX I, @ 

ASSEMBLE > 

HEX SUBR FSLITE A XRA, PV1 
A INR, THEN, 2S OUT, RET, 

CODE FI RECHECK X PUSHX, Y PUSHX, EXX, FSLITE 
FIRESWCK CALL, El, EXX, Y POPX, X POPX, NEXT 
DECIMAL —> 

-Block 233--- 

( AWAIT THE ARRIVAL OF THE VERTICAL INTERVAL 

HEX 

F= WVIL 

CODE WVI <ASSEMBLE 

DI, 11 A MV I, INMCD OUT, 

VERAF IN, A E MOV, 

LABEL WVIL VERAF IN, E CMP, WVIL JZ, 0D0 CPI 
0E0 CPI, WVIL JNC, 

8 A MV I, INMOD OUT, 

NEXT ASSEMBLE > 

DECIMAL —> 


BITX, ©=, 

C A L L p 


IF, 


WVIL JC, 


-Block 234- 

( NEW COLOR ROUTINES ) 

HEX 8 EA= COLTEL 0 V= TARGETCT 

CODE MAKECOLS EXX, B POP, 0 COLTBL H LX I, TARGETCT LDED, 

8 B MV I, BEGIN, D LDAX, F8 AN I, C ORA, A M MOV, H I NX, 

D I NX, LOOP, EXX, NEXT 

CODE APPROACH!. EXX, B POP, 0 COLTBL H LXI , 0 E MV I , 8 B MVI , 


BEGIN, M A MO! 

ft MOV, ft ft 

__ „ J i— ii X .? . J ,, r 

S = THEN j? H IF"J 7 • 

i© CODE ArPTO^C-t; 
ill BEGIN, D 
1 Z l T H E H , C 
13!© H LXI, 

■14 ( DECIMAL - 
1 5 a 


7 




: CMP, 

M TlfP 




IF. 


pi 




A 


P i'¬ 


ll NX , 

tT‘ A 


' U v 


r f 


L, IT*J A 
, !M A 




H -LXI 


: nx , 


, ' TAP- : 

IF, II 
OOP , 
INK, * 


'HEN, M 


: nx , 

B LXI , 

' Kw „ 

:xx, NEXT 










CM CM 10 
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< FADE UP7D0UN ROUTINES > 

0 V= CWTMR 

DC 0 COLTBL WVI COLOR El j 
CUAIT CWTMR: 0 PWA2T } : SCT CWTMR 
STC TARGETCT f j 
SC STC 8 O DO 
FDC STC SCT 7 
BEGIN APPROACKC 


1 


I TARGETCT @ + B@ I COLTBL B! LOOP DC 
FLOOD CWAIT 7 MAKECOLS DC CUAIT 
DC CWAIT END ; 

: FUC STC SCT 0 FLOOD CUAIT 0 MAKECOLS DC CWAIT 
BEGIN APPROACHC DC CWAIT END } 

: FDB SCT BEGIN © APPROACHL DC CWAIT END 0 WVI 
: FUW SCT BEGIN 7 APPROACHL DC CWAIT END 

DECIMAL —> 


7 WVI 


FLOOD El 

FLOOD El 


■i -Block 236- 

( FORCE FIELD DRAWER ) DECIMAL 
TIMER2 C= FFTIMER 0 V= DDXC 

192 BARRAY FIELDADR 0 V= DXC 0 V= XC 0 V= FFLAG 0 V= FFBIAS 
: INITFF DDXC ! © DXC ! 25600 XC ! 0 96 DO 
DXC » DDXC ® + DUP DXC ! 

XC @ + DUP XC ! 25S / DUP I FIELDADR B! 191 I - FIELDADR B! 

-1 +LOOP 0 FFLAG ! j 

HEX F= FFLOOP SUER FIELDRAW <ASSEMBLE 

FFBIAS LHLD, C0 3 MV I , H PUSH, 0 FIELDADR H LXI, 

LABEL FFLOOF M A MOV, A ANA, XTHL, ©< >, IF, A C MOV, 

3 ANI, 20 OR I, MAGIC OUT, C A MOV, XCHG, RRC, RRC, 3F AN I, 

A L MOV, © H MV I, D DAD, FF M MVI , H INX, @ M MV I, XCHG, THEN, 


50 D LX I , D DAD, XTHL, H INX, FFLOOP D-JNZ, H POP, RET. 

ASSEMBLE > 

CODE DRAWF I ELD EXX, D 

DECIMAL —> 

•i -Block 237- 

C MORE FORCE FIELD GOODIES 

DECIMAL 

: DRAWFF FFLAG 00= IF FFTIMER @ 0 = IF 1 DI FFLAG 
DRAWFI ELD El THEN THEN j 

: ERASEFF FFLAG t IF © DI FFLAG i DRAWFIELD El THEN 
DECIMAL —> 


FIELDRAW CALL, El, EXX, NEXT 


) 










til ^ u w ^ © m m 


0 

1 

2 

3 

4 

5 

6 
7 
S 
9 

10 

11 

12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 
S 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 


-B1ock 

IAL LINE 

LTMR 

LDXL 

LDXH 

LXL 

LXH 

LDYL 

LDYH 

LYL 

LYH 

LXRL 

LXRH 

LYR 

LRTMR 

LPXV 


238- 

GENERATOR ) 


RAD 
C = 

C= 

C = 

c= 
c= 
c= 
c= 
c= 

8 C= 

9 C = 

10 C = 

11 C= 

12 C = 

13 C = 

— > 

-Block 239- 

( RADIAL EFFECT VARIABLES > 

14 C= LHSI2 32 C= LACOUNT 
LMSIZ LACOUNT ¥ C= LASIZ 
LASIZ BA= LARRAY 

0 V= LINIT < INITIALIZE LINE ROUTINE ) 

0 V = LQUAD ( QUADRANT COUNTER ) 0 V= LRADIAL C ANGLE ) 

0 V= XB 0 V= YB £ BIASES ) 

0 V= XS 0 V= YS 0 V= XF © V= YF ( LINE ENDPOINTS ) 

0 V= SFBX @ V= SFFX 0 V= SFBY 0 V= SFFY C SCALE FACTORS 
0 V= XLP © V= XLM 0 V= YLP 0 V= YLM C LIMIT FACTORS ) 

— > 


-Block 24©- 

( NEAT SUBROUTINES > 

SUER SINE A E MOV , 0 D MVI, 0 sin—table H LXI, D DAD , 

M E MOV, RET,, 

SUER COSINE A E MOV, 63 A MVI, E SUB, A E MOV, 0 D MVI, 
0 sin —table W LXI, D DAD, M E MOV, RET, 

|< UNSIGNED MULTIPLY ) 

!F= MNGSW F= MMPL F= NOADD 


SUER UM 


PY 


<ASSEMBLE H A MOV, ft ANA, MNOSV 


i LABEL MNOSy L ft MOV„ 0 H LXI, 
i LABEL MMPL RAP, NCftM> UPNC, 1> DAD, 


LABEL 


Nrt®t T 


DAD, MCHC, A ANA, MflrL JRNZ, 

- CMA „ A H MOV, L A MOV, CMA, < 


MOV j 


' NX 


; — > 
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IN A LINE ) 


-Block 241- 

( SUBR TO WRITE NEXT PIXEL 
HEX F= TMR2 RTZ 
SUBR STEPLINE <ASSEMBLE 

LTMR X A LDX, A AM A , TMR2 URZ, A DCR, A LTMR 
LDXL X E LDX, LDXH X D LBX, LXL X L LDX, LXH 
L LXL X STX, H LXH X STX, XCH6, 

LDYL X C LBX, LB YH X B LBX, LYL X L LDX, LYH 

L LYL X STX, K LYH X STX, 

20 C MV I, relsbn CALL, C A MOV, BI, MAGIC OUT, 
RET, LABEL TMR2 LRTSiR X A LBX, A ANA, RTZ JRZ, 
A LTMR X STX, 0 LRTMR X MV IX, 

LXRL X L LBX, LXRH X H LDX, L LXL 
LYR X A LDX, A LYH X STX, 0 LYL X 
LABEL RTZ LIMIT LKLD, PCHL, 

ASSEMBLE > 


STX, 

H LBX, 


B BAB, 

B BAB, 
0C0 M MV I,■ El, 


X H LBX, 


X STX, H LXH X SIX, 
MV IX, RET, 


BECIMAL 


— > 

■B 1 ocl* 


242 


( OTHER NEAT VERES ) 

: LSTART LIMIT ! LASIZ 0 
F= UPAL 

COBE UPBATEALL <ASSEMBLE 
0 LARRAY X LX IX, 

LABEL UPAL B PUSH, STEPLINE CALL, 

LM5IZ B LX I, D BADX, 

B POP, B BCX , C A MOV, B ORA, UPAL JRNZ, 
EXX, Y POPX, X POFX, NEXT ASSEMBLE> 

— > 


DO 0 I LARRAY B \ LOOP ; 

X PUSHX, Y PUSHX, EXX, LACOUNT B LX I 


+-Block 243--- 

( GENERATE A LINE ). 

HEX F = BOY F= OKX 

SUER GENLINE <ASSEMBLE random CALL, 

B A MOV, 3F AN I, LRABIAL STA, 

C X START ) 

SINE CALL, SFBX LHLD, UMPY CALL, H A 
( X END ) 

DA, PINE CALL, SFFX LHLD, UMPY CALI 


L A MOV, 3 AN!, LOUAD STA 


MOV, XS STA, 


7 l LRABIAL 
8!H A MOV, 
9 ! C Y STAR 


11!H A MOV, 

12 IC Y END ) 

13!LRABIAL LDA 
H 


A, 

q « 


q |pn q t iy fr 


C< 


r BY LHLD j 


-HLB. 


YPY CALL, 


CAL 










4-—-—Block 244-—————-- 

0! ( LINE GENERATOR - CLIP CHECK ) 

liLQUAD LDA, £ AN I * ©=, IF, XLM LDA, ELSE, XLP LDA, THEN, 

2!A C MOV, XF LDA, C CMP, DOT JRC, ( JUMP IF OK ) 

3!B PUSH, YS LDED, YF LDA, I SUB, A E MOV, 

41XF LDA, C SUB, A L MOV, © H MV I, H D MOV, UMFY CALL, 

5!XS LDED, XF LDA, E SUB, A E MOV, © D MVI, UNSDIV CALL, 

61YF LDA, E SUB, YF STA, B POP, C A MOV, XF STA, 

71 ( Y STUFF > 

8!LABEL DOY LQUAB LDA, A I NR, 3 AN I, 2 CPI, CY, IF, YLM LDA, 

9!ELSE, YLP LDA, THEN, A C MOV, YF LDA, C CMP, OKX JRC, 

10 IB PUSH, XS LDED, XF LDA, E SUB, A E MOV, 

11IYF LDA, C SUB, A L MOV, © H MV I, UMPY CALL, 

12!YS LDED, YF LDA, E SUB, A E MOV, © D MV I, UNSDIV CALL, 

131XF LDA, E SUB, XF STA, B POP, C A MOV, YF STA, 

14| — > 

15| 

+—-Block 245-—— 

©i< LINE GENERATOR - SET DELTAS ) 

liLABEL OKX XS LDED, XF LDA, E SUB, A C MOV, YS LDED, YF LDA, 

21E SUB, A B MOV, C CMP, CY, IF, ( X IS LARGER ) 

3iC LRTMR X STX, C LTMR X STX, 40 LDXL X MV IX, © LDXH X MV IX, 

41B H MOV, © L MV I, C E MOV, L D MOV, UNSDIV CALL, 

5|E LDYL X STX, D LBYH X STX, 

6!ELSE, C Y IS LARGER > 

7 SB LRTMR X STX, E LTMR X STX, © LDYL X MVIX, 

SSI LDYH X MVIX, C A MOV, RRC, RRC, A H MOV, ©C© AN I, A L MOV, 

3!H A MOV, 3F AN I, A M MOV, B E MOV, 0 D MV I, UNSDIV CALL, 

1© SE LDXL X STX, D LDXH X STX, 

11STHEN, 

12 ! — > 

13 i 

14 i 

15 ! 

4-Block 24S-—— 

©i ( ADJUST DELTAS TO QUADRANT, AND BIAS TO EFFECT CENTER > 

IS XS LDA, RRC, RRC, A D MOV, ©C© AN I, A E MOV, D A MOV, 

2!3F AN I, A D MOV, XB LHLD, 

3SLQUAD LDA, 

4!2 ANI, ©< >, IF, A ANA, D DSBC, XCHG, LDXL X L LDX, 

5SLDXH X H LDX, COMHL CALL, L LDXL X STX, H LDXH X STX, 

6!XCHG, ELSE, D BAD, 

7STHEN, L LXL X STX, H LXH X STX, L LXRL X STX, H LXPH X STX, 












+-Block 247- 

0|< SET CENTER OF LIME EFFECT ) 

1!: SETLXY 2DUP YB ; XE ! 

21256 / DUF YLP ! 132 SWAP - YLM ! 

3164 / DUP DUP 255 > IF DROP 255 THEN XLP ! 

4!292 SWAP - DUP 255 > IF DROP 255 THEN XLM ! 
5!: SETSF SFFY ! SFFX ! SF3Y ! SFBX ! ; 

6|DEC INAL —> 


7 i 
3 i 
91 

10 l 

11 i 

12 ! 
13! 

14 ! 

15 ! 




+——-Block 248- 

0|( CHECK FOR INTERCEPT WITH ANY OF THE ATTACKERS ) 

1iF= CNH 

2ISUBR CKATRS <ASSEMBLE PINTERFLAG LDA, A ANA, CNH URNZ, 
311 C MV I , CHECKALL CALL, CNH JR2, 

4 J PQSRH PQS Y RESX, PQSDW PQS Y SETX, 

5!VYL Y L LDX, VYH Y H LDX, PINTERY SHLD, 

6 IVXL Y L LDX, VXH Y H LDX, PINTERN SHLD, 

7!VRACK Y A LDX, 

&'■£ A 317, A", IF f A C MOV, XALIVESITS CALL, Y XPA, 

« MOV, ~‘-5EN, A YV" , PIN7ERFLAG ST A, A A X ’A , 

101 RET, . 

11 ! LABEL CNH A Y7A, 

12 5 ASSEMBLE > 

13 ! DECIMAL :: 7 
142 









